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C3800 - DIAGNOSTIC CONTROL PROGRAM (DCP) 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT 


P/N=1635013 EC=375147 PAGE 01 C3800 - DIAGNOSTIC CONTROL PROGRAM (DCP) P/N=1635013 EC=375147 PAGE O1A 
COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


0 0 000040 121 EBBK EQU ct ' © BLANK 
ERR : eeu R each as panies ee ies sera eee eee eee OO000E2 122 CHARS EQU cts tse 
5 x * CO00E2 123 SCHAR EQU X'*QOE2°* tst 
6 * * KX PREREQUISITES KK * 001800 125 NEGZR EQU X*'1800° NEGATIVE AND ZERO INDICATORS 
7 * * 000064 126 STPCD EQU X'64et STOP CODE FCR MEMORY 
8 * NONE * 000010 127 SMBIT EQU X*0010! SUMMARY MASK BIT 
9 * * 000000 129 ZERO EQU 0 VALUE OF QO 
10 0K tk Ro RR I OO om oR OR OR ok tok dak I ak kick ak ac afc akc 4c ok ak oe 000001 130 ONE EQU 1 1 
12 * : 000003 132 THREE EQU 3 i 
*x 22K OK $k OK * 
13 ee aes = 990008 133 FOUR Bou 
* : : * 
te Z 1. CORRECT RETRY PROCEDURE FOR 4966 IPL DEVICE : 60000€ 135 STX EOU e 2 
16 KR RIOR IGOR OO I IOI IG IO IO RII IK dak kak kk ak ak ak ate akc ak 000007 136 SEVEN EQU 7 7 
1 + : 000009 136 NINE FOU | 8 5 
* KOK 'S INCORPORAT HK K x 
He ee ee i ee : 
* 7-1 x 
34 * f eer * 00000C 141 TWELV FOU 12 12 
22 3 IK FO III RI IOICIO OK IO IO a a Fak a a ok ak ak ic ak ak ae ake ake afeak ok 00000D 142 THRTN EQU 13 13 
gt $0088 tag Fran Boy 38 i 
* ek OK ek x 
33 * SPEC TAL NSTAUCTIONS * 000010 145 SIXTN EQU 16 16 
26 * NONE * 000011 146 SEVTN EQU 17 17 
27 * * 000014 147 TWNTY EQU 20 20 
28 2K IK III OO io a rok IC i a dO a fk kok ak aka ak ake ok akc ok ok ak 000015 148 TWEN1 EQU 21 21 
29 * * 000017 149 TWEN3 EQU 23 23 
30 * ak F. C. HISTORY *K * 000019 150 TWEN5 EQU 25 25 
2 $8038 123 ayens fy 2 33 
32 * DATE O10CT76 DATE O2DEC76 DATE 22APR77 DATE 10JUN77 * 
33 * E.C. 578468 E.C. 578469 E.C. 578751 E.C. 578625 * OO001E 153 THRTY EOU 30 30 
34 * * 000020 154 THRT2 EQU 32 32 
32 + BAC. 578980, BC. 7E5404, RCE Wess) Bee ea * 000030 188 FRIYS FOU | 48 ig 
37 * or a a — * 000039 157 FIFT7 EQU 57 57 
38 aK OK 2K RK OOO IC ICI ak Kio qa iO aa kk kok kK ok oko ocak ok 00003C 158 SIXTY ate 60 60 
GO 2k a KR OK Ro a IO i iii a IK fak tok ako kk k kok ak ok ak 000040 159 SIXT4 EQU 64 64 
i 380883 16) Sevns Bou 98 8 
* x 
43 spc nial ie apn * 0000C0 162 ONES2 EQU 192 192 
BU ORO oR I RO OIC OO IGRI IIR ICI tok kkk ak ak a ak ak akc a ak 0000D0 163 TWOO8 EQU 208 208 (INPROC,SUP ST,SM MSK) 
45 SM EQU 1 SUMMARY ee DISABLE OR 000100 164 TWO5S6 EQU 256 256 
46 * ENABLE COD 000160 165 THR52 EQU 352 352 
47 AT EQU 2 ADDRESS TRANSLATOR ENABLE OR 000800 166 TWOK EQU 2048 2048 
ug * DISABLE CODE 001000 167 FOURK EQU 4096 4096 
49 2 OO IO RC IGOR ICICI IO IIIA GI A OR tk tok tek akc ak ak ake a 000030 168 HTHTY EQU X*30! HEX 30 
ar :  Soepee 199 ieee egy 4530084 ner 3990 
* ' x 
24 * pO RUE FOR SUPPORLED Overs * OOFFOO 171 HFFOO EQU X'FFOO! HEX FFOO - MASK 
% 53 KK KOK I OO to a a a OK lok gk koto ok ak afc ok aka ak OOFFC 3 172 ZER3C at X*PFC3°* 
000000 54 OUT EQU 0 OUT SVC FFFFFFP 174 M1 EQU -1 -1 
000001 55 OUTIN EQU 1 OUTIN SVC PFFFFE 175 M2 EQU -2 -~2 
000002 56 IDLE EQU 2 IDLE SVC IFFrFFD 176 M3 EQU -3 -3 
000003 57 IDLES EQU 3 IDLE SVC MODIFIED AS PER SYSTEM TYPE "FFFFC 177 m4 EQU -4 -4 
000004 58 CHNGE EQU 4 CHANGE LEVEL SVC FFPFF6 178 M10 EQU  -10 -10 
000005 59 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC FFFFFO 179 M16 EQU -16 -16 
000006 60 EXIT EQU 6 EXIT SVC FFFFE4 180 M28 EQU) -28 -28 
000007 61 TERM EQU 7 TERMINATE SVC PFFFE2 181 M30 EQU -30 -30 
000008 62 RESET EQU 8 RESET DEVICE SVC 00D4C3 183 MCKLB EQU  C*NC 
000009 63 RID EQU 9 READ ID SVC 00D7C3 184 PKLAB EQU  C'PC! 
OOOOOA 64 START Bou 10 START CYCLE STEAL SVC 186 360 Rk io ok oR Cio OK GK lok ak dof i iio kaiok ak aioaak ak ak ak iia ke tac ok 
187 * * 
00000c e2 PREP HOU | q2 PREPARE DEVICE SVC 188 + EQUATES FOR DISKETTE * 
obobbe ae BEG FOU 13 pean wea PuNenTOn it 3 Ci eres 190 36K OO RO ok ao toto a koi giak i ack kai ge aaiea ake agai ak ak a ak ak ok ak ak a ak akc ak 
O0000F 69 RSTAT EQU 15 READ STATUS SVC 000006 133 BOE EQU 6 DeRay Te Toe START OF 
7T 
000014 5) inte) Bou 19 WRITE WITH FUNCTION BIT 3 ON SVC” 000008 193 EOE EQU 8 DISP TO EO FROM START OF 
000012 72 CTRL EQU 18 CONTROL SVC 194 * ENTRY IN VTOC 
000013 73 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 00000C 195 DSTYP EQU 12 DISP TO TYPE OF DATA SET IN 
000014 74 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 196 * ENTRY OF VTOC 
000015 75 HIO EQU 21 HALT I/O SVC OOOOOF 197 SPTE EQU 15 NUMBER SECTORS/TRACK 
000016 76 REQSD EQU 22 REQUEST USE OF DCP DISKETTE SVC OO000F 198 DIP2A EQU 15 ADDR 1ST DIPL2 SECTOR 
000017 77 RELSD EQU 23 RELEASE USE OF DCP DISKETTE SVC OOO01E 199 EDIP2 EQU 30 ADDR LAST DIPL2 SECTOR+1 
78 * EOU 24 ** RESERVED FOR FUTURE EXPANSION ** 000078 200 PRC1A EQU 120 ADDR 1ST PROC1 SECTOR 
000019 79 ETOH EQU 25 EBCDIC TO HEX SVC (STRING QOOOBY 201 EPRC1 EQU 180 ADDR LAST PROC1 SECTOR+1 
OOOO1A 80 HTOE EQU 26 HEX TO EBCDIC SVC (Static OOOOB4 202 PRC2A EQU 180 ADDR 1ST PROC2 SECTOR 
00001B 81 ATOH EOU 27 ASCII TO HEX svc TRING Q0O000FO 203 EPRC2 EQU 240 ADDR LAST PROC2 SECTOR+1 
QOO0I1C 82 HTOA FOU 28 HEX TO ASCII SVC {Stain} 0000F0 204 PRC3A EQU 240 ADDR 1ST PROC3 SECTOR 
00001D 83 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 00012C 205 EPRC3 EQU 300 ADDR LAST PROC3 SECTOR+1 
OOO0TE 84 ATOE EQU 30 ASCIY TO EBCDIC SVC (STRING QOO14A 206 VTOCA EQU 330 ADDR 1ST VTOC SECTOR 
338835 ge aMaT Be 3 OM eae ne a3baRs 385 Exes BBY 2845 BBE EAST Seon GA °St Sxomts 
O Sae s06- 3 ar piece HG 303 peasy Bay 360 AUPE bt BATH gECTOR 
N O I ; 
vanes 35 Hees PE POET ROE RTE CE ie dd Rr eel pt ee RE ae ied see eee 000020 211 LVTE ER 32 LENGTH IN BYTES OF A VTOC ENTRY 
91 * * 000008 212 NDFPS EQU 8 NUMBER ENTRIES/SECTOR IN VTOC 
92 * EQUATES USED BY DCP * Q00004 213 CHDLG EQU 4 DISP TO DATA IN MULT SECTS 
93 * * QOOOOA 214 VHDLG EQU 10 NUMBER BYTES OF HEADER INFORMATION 
O94 tO II I IO oO OI i cio og ieiciaic kc ak tok ak tok ak ak ie ieak ak ak ak ok kak ak feet a2 eHpUe = g aa NUM BYTES PAST ALL HEADER INFO 
600000 32 ADGSN E f 6 TERMLNATE PON SW ea af ON 1ST SECTOR OF EACH PROGRAM DATA 
aatae on Bee E9Y 3 ae oon aaad OFF PATE TELS te SESS CSC SCL SSCS SC CSTR TESTS SCS SSS CCST CCC CCFC SS TSS PCP Sets TST te Les 2 Se 
U R 221 * *x 
000004 100 OTIL E U 4 UTLLITY REQUESTING DATA 222 * EQUATES FOR CODED STOPS USED BY DCP * 
000004 101 LODED FOU 4 PGM LOADED aon : (NORMAL AND ERROR) yi 
000004 103 RLTDV EOU s ALT ORAATE ONT SUS DEY ASSIGNED 225 OOO I OR OK oo ito a loi ik gk kok kak ai giogoaieg aa ak ic ak ac ak ac ak 
000008 104 NXTVT EQU 8 TAKE NEXT DATA SET IND 003800 226 RECD1 EQU X'3800! DCP WAIT 
000009 105 CONDV EQU 9 INPUT FROM PROGRAMMER'S CONSOLE 003801 227 ACNG EQU X'3801' ALTERNATE CONSOLE ERROR 
OOOOOA 106 IRD EQU 10 MDI READ REQUEST 903802 228 PCKCD EQU X'3802' PROGRAM CHECK ERROR 
00000B 107 RTMDI EQU 11 MDI RETURN REQ 003803 229 MCKCD EQU X'3803! MACHINE CHECK ERROR 
00000C 108 TUIDS EOU 12 SAVE THE T.U. I.D. 003804 230 PTWMG EQU X'*3804! POWER THERMAL ERROR 
00000D 109 LDIAG EQU 13 LOOP ALL DIAG PACKAGE 003805 231 PSTER EQU X'3805° PROGRAM TERM 
OOO0O0E 110 CNRUN EOU 14 UNIT ADR ASSIGNMENT RUN 003806 232 INVCD ath X¥'*3806! INVALID COMMAND ERROR 
000003 112 NINTL EQU 3 HIGHEST INT LEVEL ON SYSTEM 003807 233 ALTCN EQU X*3807° ALT IN/OUT UNDER TEST 
000030 113 MDIRT EQU 4g MDI IMMEDIATE RETURN IN CNTL BLK 003808 234 RES EQU X'3808! ALT IN/OUT ON LINE 
QOOOO0OE 114 OPWRD EQU 14 DISP TO PGM OPTION WORD 903809 235 UXP EQU X'3809! UNEXPECTED I/O INTERRUPT 
00000D 116 EOT EQU  xX*'OD® END OF MESSAGE CHAR (RETURN) 00380A 236 BPCDS EQU X'380A' PROGRAM STARTED 
000011 117 TTBEL FOU xe118 ATTEN CHAR (X-ON) 00380B 237 LPCD4 EQU X*380B° DISKETTE ERROR 
00007F 118 DLETE EQU X'7F! DELETE CHAR RUBOUT) 00380C 238 LPCDS EQU X'380C' PROGRAM NOT FOUND 
QOOO4E 119 PLUS EOu Ct+t EBCDIC CHARACTER PLUS 239 EQU X*XXXX! PROGRAM LOADED 
0900060 120 MINUS EQU crt '-' MINUS 003810 240 RPCD2 EQU X*3810' PROGRAM NOT EXPECTING REPLY 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003812 241 DPSTG EQU X¥'*3812! DUMPING STORAGE 000010 0284 359 SVCPT DC A (SVCLB) SVC LSB POINTER 
003813 242 VFYCD EQU X'3813! VERIFY CONSOLE DATA ENTRY 000012 Q79E 360 SVCSI DC A(SVC SVC SIA 
003814 243 ENTCD EQU X'*3814! ASK FOR DATA ENTRY 000014 0250 361 PTWPT DC A(PCKLB POWER FAILURE LSB POINTER 
003815 244 SVCOD EQU X'3815° TOO MANY SVC CALLS 000016 0O884 362 PTWSI DC A (PTWEP POWER FAILURE SIA 
003816 245 CODE1 EQU X'3816! SHOULD KEYBOARD BE REDEFINED 000018 0000 363 TRAPT DC A(0 TRACE LSB POINTER 
003817 246 CODE2 EQU X'*3817! KEYBOARD REING DEFINED QO0001A 0000 364 TRASI DC A (0 TRACE SIA 
208 oR OR OR Kok ORO OR OO OR I io IO I zi ak ia ktok i lok kak kok aoa oak ack ok 00001C 026C 365 CONPT DC A (CONLB CONSOLE INT LSB POINTER 
249 * * 000018 0926 366 CONSI DC A (CONEP CONSOLE INT SIA 
250 * THE FOLLOWING EQUATES ARE THE DISPLACEMENT FROM THE * 000020 0250 367 SFTPT DC A (PCKLB SOFT TRAP LSB POINTER 
251 * START OF A PROGRAM HEADER OF THE VARIOUS INFORMATION IN * 000022 O7F4 368 SFTSI DC A (PCKEP SOFT TRAP SIA 
252 * EACH PROGRAM HEADFR * 000024 0250 369 DC A (PCKLB EXPANSION LSB POINTER 
253 * * 000026 O7F4 370 DC A (PCKEP EXPANSION SIA 
054 oO OO OIRO OR fo rR IO I RR ik I doko dak ak 000028 0250 371 DC A (PCKLB EXPANSION LSB POINTER 
000000 255 HID EOU 0 PROG I.D. O0002A O7FY4 372 DC A (PCKEP EXPANSION SIA 
000000 256 DVADR EQU 0 DEVICE TYPE IN DEVICE TABLE 00002C 0250 373 DC A(PCKLB g EXPANSION LSB POINTER 
000001 257 DVTYP 1 DEVICE ADR IN DEVICE TABLE QO0002E O7FY4 374 DC A {(PCKEP EXPANSION SIA 
000003 258 HDDP1 3 DEVICE DEPENDENT DATA 000030 03780378037803780 375 DEVIT DC 1Z8A (STRIT DEVICE OO-FF INTERUPT SIA 
000004 259 HDDP2 E i 4 DEVICE DEPENDENT DATA 000130 03780378037803780 376 C 128A (STRIT INITIALLY SET TO STRAY 
000004 260 CPUMD rT CPU MODEL DISPLACEMENT WAST STS SSCL SSeS Stet es STS St SSCS SCS S CSCS SSP STE TCT CSCC TEST Tee Tee eT Pete Let et es 
000006 261 LSADR ata - 6 LAST ADR DISPLACEMENT 379 * * 
000006 262 HPK EQU 6 PROTECT KEY 380 * THIS PAGE CONTAINS INTERPROGRAM COMMUNICATION AREA. THESE * 
000007 263 HPK1 EQU 7 PROTECT KEY PLUS ONE 381 * ENTRIES MUST REMAIN IN THEIR EXACT STORAGE LOCATIONS. * 
000006 264 HPSA EQU 6 DIAG PROG START ADR 382 * * 
000006 265 INTAR EOU 6 DEVICE INTERRUPT ADR BBS Ww HH He fe Mee Me He Me He Me Me He He He Me Me he Me he he he He ae he 3c kc 2 3 i ae ic ca ae cc ae i ic ee a i ae a i fc a oe oe oh a ee oe ok ek ok 
000008 266 HDVTB EOU 08 DIAG DEV TABLE POINTER 000230 0000 384 LASAD DC A (0) HIGH STORAGE ADDRESS 
000.011 267 EXPNT EQU 17 000232 00 385 PRTYP DC AL1(0 PROCESSOR TYPE 
000012 268 TBEND EQU 18 END OF TABLE IND 000233 00 386 DKAD L1(0 DISKETTE DEVICE ADDRESS - IPL 
000013 269 SCEND EQU 19 END OF SECTOR IND 387 * P INDICA EEL 
000014 270 CICBT EQU 20 C I C B INDICATOR 000234 8600 388 INDIC DC B*1000011000000000! INDICATORS USED BY DCP 
000015 271 PASTR EQU 21 PASS STRAY INT TO DIAG 389 * BIT O - QO=AUTOMATIC MODE 
000008 272 CFEXT EQU 08 390 * BIT O - 1=MANUAL MODE 
000012 273 HTUID EQU 18 MDI MAP 1.D DISPLACEMENT 391 * BIT 1- ee PROGRAM 
000010 274 UDTAS EQU 16 UNIT ASSIGNED BIT 392 * BIT 2- pa A BITS OFF 
000020 275 PDTAS EQ 32 393 * BIT 2 - pe BITS ON 
000000 276 UNCRT EQU 0 UNCONDITIONAL RETURN BIT 394 * BIT 3- at REQ FOR DATA 
000001 277 CKDAD EQU 1 CHECK REQUESTED DEV 395 * BIT 4 - et 
00000B 278 IOCHK EQU 11 I/O CHK IN PSW 396 * BIT 5 =- IPL Bree 
OO0000F 279 NEWAR EQU 15 397 * BIT 6 - STOP AFTER MSG 
280 ao oko KO OR Koj ok oR GIO i ak Io ai aK koko ok ak ac fe akak ak geak ie ak kek ak ak ek ok 3398 * BIT 7- ALT OUT DEV ASIGNED 
281 * * 399 * BIT 8 —- IND TAKE NEXT ENTRY 
282 * THE FOLLOWING EQUATES ARE THE OFFSETS INTO EACH ENTRY * 4Q0 * BIT 9 —- INPUT FROM PROG CONSOLE 
283 * FOR THE DATA SPECIFIED. (16 BYTES / ENTRY) * 4O1 * BIT 10 - SVC READI 
284 * * 4Q2 * BIT 11 - MDI IMMED RET (INT) 
285 oO OR ROKR OR OI i tok ok icici iotoiok kakokoi dock atc afk ik akc akc fea ak afc akc ae ocak 2k 403 * BIT 12 - SAVE T.U. I.D. 
000000 286 CUDA EQU 0 DEVICE ADDRESS “O44 * BIT 13 - LOOP ALL DIAG PACKAGE 
000001 287 CUDT EQU 1 DEVICE TYPE 4Q5 * BIT 14 —- UNIT ASSIGN REQ 
000002 288 CUDF EQU 2 CONTROL FLAGS 406 * BIT 15 - CONVERT TO HEX 
000003 289 CUDD1 EQU 3 DEVICE DEPENDENT DATA ~- 1 900236 110E 407 DCPO1 DC A(FNDDS ADDR OF FIND DATASET ROUTINE 
000004 290 CUDD2 EQU 4 DEVICE DEPENDENT DATA -- 2 000238 11C2 408 DCPO2 DC A (DSKRD ADDR OF READ DISKETTE ROUTINE 
000005 291 CUDD3 EQU 5 DEVICE DEPENDENT DATA ~-- 3 Q0023A 11C8 409 DCPO3 DC A (DSKWR ADDR OF WRITE DISKETTE ROUTINE 
000006 292 CUDD4 EQU 6 DEVICE DEPENDENT DATA -- 4 00023C 132C 410 DCPOY DC A (DBUF) ADDR OF DISKETTE DATA BUFFER 
000007 293 CUDD5 EQU 7 DEVICE DEPENDENT DATA -- 5 00023E 17EE 411 DCPO5 DC A (FNDPG) ADDR OF PROGRAM NAME POINTER 
000008 294 CUDD6 EQU 8 DEVICE DEPENDENT DATA -- 6 000240 00 412 OPADR DC AL1(0 OUTPUT DEVICE ADDRESS 
000009 295 CUDD7 EQU 9 DEVICE DEPENDENT DATA -~ 7 000241 00 413 OPTYP DC AL1(0 OUTPUT DEVICE TYPE 
OOOOOA 296 CUDDS8 EQU 10 DEVICE DEPENDENT DATA -- 8 000242 1307 414 SEIDO DC A(SEID1) ADDR OF DISKETTE START IDCB DA 
00000B 297 CUDDIS EQU 11 DEVICE DEPENDENT DATA -~ 9 000244 1000 415 SECSZ DC A 996) DISKETTE SECTOR SIZE - 256 BYTE SECT 
Q0000C 298 CUDDA EQU 12 DEVICE DEPENDENT DATA -- 10 000246 1246 416 DKINT DC A (DSKTI ADDR OF DISKETTE INTERRUPT ROUTINE 
00000D 299 CUDDB EQU 13 DEVICE DEPENDENT DATA 11 000248 OS7E 417 DCPO6 DC A SCHED| ADDR OF SCHEDULER ROUTINE 
QOOO000E 300 CUDRI EQU 14 DEVICE READ ID DATA RETURNED QOO24A FF 418 FIGRN DC AL1 HED} CONFIGURATION RUN - INITIALIZATION 
000011 301 CUDDC EQU 17 00024B 00 419 OPSUB DC AL1 oy OUTPUT DEVICE REMOTE SUB-ADDRESS 
000021 302 CUDDD EQU 33 00024C OECE 420 DCPO7 DC ate 0 is ADDR OF PRINT ‘INV REQ' MSG ROUTINE 
304 3k ot KO i oO OR kK oR kok IO ok Rok iio kaitok dak i iota tok do ack ak ak ia 421 * EXTRA DCP I DICATORS) 
305 * * 00024E 0000 422 DCPO8 DC B'0000000000000000!8 INDICATORS USED BY DCP 
306 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE * 423 * BIT O- 1=FLP IN eos TABLE 
307 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. * Y2u * BIT 1 THRU 15=SPA 
308 * * 425 RRNA CERCA EES ee ae eS 
309 ao OK OR OR OK lok OR kiok koko loki kok iii ig dakok gk kako ak ak tok aie ak ak ake ages ake UO7 oR oR OR OK KR ok RK lok koi OR kak io ia ici I go a tate teat ak eal akc afc ac ae ak ok ak 
000000 310 QTAR EQU 0 TARB OF CALLING PROGRAM 428 * * 
000002 311 QAKR EQU KEY REG 429 * STORAGE AREA RESERVED FOR LSB'*S * 
000004 312 QLS EQU 4 LSR OF CALLING PROGRAM 430 * * 
000006 313 ORO EQU 6 X¥RO OF CALLING PROGRAM 431 ROR oR OR oO oR OO oR IR I IOI a IK i aK IO Ik ik ak fe ake ae ake ok 
000008 314 QR1 EQU 8 XR1 OF CALLING PROGRAM 000250 00000000000000000 432 PCKLB DC 144A (0 MCK, PCK AND PTW LSB 
OQOOOOO0A 315 QR2 EQU 10 XR2 OF CALLING PROGRAM 00026C 00000000000000000 433 CONLB DC 11A (0 CONSOLE LSB 
Q0O0000C 316 RR EQU 12 XR3 OF CALLING PROGRAM 000282 0000 434 CONLV DC A (0) CONSOLE LSB 
OO0O000E 317 QRY EQU 14 XR4Y OF CALLING PROGRAM 000284 00000000000000000 435 SVCLB DC 14A (0 INITIAL LSB FOR SVC INTERRUPTS 
000010 318 QR5 EQU 16 XR5 OF CALLING PROGRAM 0002A0 00000000000000000 436 DC 14A (0 ADDITIONAL LSB'tS FOR SVC INT 
000012 319 QR6 EQU 18 XR6 OF CALLING PROGRAM 0002BC 00000000000000000 437 STLSB DC 14A (0 
000014 320 gay EQU 20 XR7 OF CALLING PROGRAM 0002D8 FFFF 438 DMONE DC Ft-7q{t STOPPER ~ CONSTANT FOR DOUBLE 
000016 321 QSVC EQU 22 SVC NUMBER OF CALLING PROGRAM OOO2DA FFFF 439 pc F'-—1! MINUS ONE 
000017 322 QRAL EQU 23 RETURN CODE AND LEVEL ENTERED 0002D8 - 440 HEXFF EQU DMONE 
323 INTO SVC ON 000208 441 MINON EQU DMONE 
000018 324 QAV1 EQU 24 AVAILABLE WORD 1 Q4u3 * DECODE OPERATOR COMMANDS ROUTI Te ACEC) 
OOOO1A 325 QAV2 EQU 26 AVAILLABLE WORD 2 Quy * BRANCH TABLE FOR OPERATOR COMMAND 
CPM TES eS TCLS TOSS SCSSSSSSOSS SCS SSS SSL SS LSC LOCCSCCCCOSCC SSCS SLC StS TSS TSS Se St 0002DC uuS CMDTB EQU 
328 * * O0002DC ODF2 UG D A (NORTN 0 - NO RESPONCE 
329 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE START ss QOO2DE OEOO 47 DC A(YSRTN 1 - YES RESPONCE 
330 * OF EACH SLOT IN THE DEVICE TABLE TO THE VARIOUS * OOO02EO0 OEOE 44g DC A (AMRTN 2 ~ AUTOMATIC MODE 
331 * INFORMATION IN EACH SLOT x Q0002F2 OE12 44g DC A (MMRTN 3 - MANUAL MODE 
332 * * QOOO02E4 OEF2A 450 DC: A({(ULOOP 4 - LOOP DIAGNOSTIC PACKAGE 
333 22 KI RR RO OR iO OR lok OK zo Kk kak dota IK a i ake ok O002E6 O32 451 DC A (ACRIN 5 —- ALTERNATE CONSOLE OFFLINE 
000002 334 OAG EQU 2 RETURN ADDRESS IF COND CODE OF 0002E8 OE52 452 DC A (RSPGM 6 - RESUME PROGRAM 
335 * INTERUPT MATCHES THE COND QOOO2EA OF64 453 DC A(SMRIN 7 - STOP ON MESSAGE 
336 * CODE AT OCC O0O002EC QE6C 454 DC A (SORTN 8 —- TURN OFF STOP ON MESSAGE 
000004 337 OAB EQU 4 RETURN ADDRESS IF CONDITION OOO2EE OETY4 455 DC A (TPPGM 9 —- TERMINATE PROGRAM 
338 * CODE OF INTERUPT DOES NOT 0002FO0 dOE8O 456 DC A (BPPGM A - BEGIN PROGRAM-NO NAME SPECIFIED 
339 * MATCH CONDITION CODE AT OCC 0002F2 QOES80 457 DC A (BPPGM B —- BEGIN PROGRAM-WITH NAME SPECIFIED 
000007 340 OCC EQU 7 CONDITION CODE EXPECTED OOO2F4 OQOECE 458 DC A (LPPGM C - LOAD PROGRAM 
301 3 IO IO A IG RO IORI KI okok kk ok tok ok QOO02F6 102A 459 DC A {ONPGM D- TURN ON OPTION WORD BITS 
343 7 RR RO COR ORI RC IO CC IO IK IG Aoki a IK kK ak 0002F8 1032 460 DC A (OFPGM E - TURN OFF OPTION WORD BITS 
344 * * QOOO2FA 107C 461 DC A (REPGM F - RESPOND TO PROGRAM 
345 * THE FOLLOWING IS A MAP OF LOW STG - ALL STG LOCATIONS * 463 OK RK OOK ZO OO to ik lak icici i iii tok tote gai ko aac tok oc a ak 
346 * UP TO THE SYSTEM LSB'S ARE PERMANENT ASSIGMENTS. * 64 * 
347 * * “65 * THE FOLLWING IS THE ADDRESSES BRANCHED TO BY THE INITIAL * 
348 OI OO kolo OR ki ko IK i lak doi kia kok dak N66 * SVC HANDLER FOR EACH INDIVIDUAL SVC PARAMETER FIELD. THEY * 
000000 6802 1814 349 SDCP B INIT INITIALLY BRANCH TO INITIALIZATION “67 * ARE IN ASCENDING NUMERICAL ORDER. ANY NOT SHOWN ARE * 
000002 350 SDCP2 EQU SDCP+TWO ROUTINE. INITIALIZATION WILL POINT 468 * INVALID. % 
351 * IT TO RESTART ROUTINE (REST WAG 469 * * 
352 * NEXT TWO WORDS RESERVED IN HARDWARE 70 2k RR OR qa lak kg ick kok ok tok ok loko ok uk iia iio dak ig fag teak ac akc a 
000004 0230 353 DMPSA DC A (LASAD STARTING DUMP ADDRESS Q0002FC 471 ISVCP EQU * 
000006 02DC 354 DMPEA DC A (CMDTB ENDING DUMP ADDRESS QOOO02FC O8A4 472 DC A(CONSO SVC O ADDR OF OUT SVC 
000008 0250 355 MCKPT DC A (PCKLB MACHINE CHECK LSB POINTER QOO2FE O8AY4 473 DC A (CONSO 1 ADDR OF OUTIN SVC 
OOOO00A O86E 356 MCKSI DC A (MCKEP MACHINE CHECK SIA 000300 O9DA “74 DC A (DELAY 2 ADDR OF IDLE SVC 
00000C 0250 357 PCKPT DC A (PCKLB PROGRAM CHECK LSB POINTER 000302 Q9E2 475 DC A (DELY5 3 ADDR OF NEW SVC IDLES ROUTINE 
OOOO0O0E OT7F4 358 PCKSI DC A (PCKEP PROGRAM CHECK SIA 000304 O9EE 476 DC A (CHNG) GY CHANGE LEVEL SVC 
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000306 OAOO -~ 477 pc A (PGMK 5 RET PGM CHK TO DIAGNOSTIC PGM SVC. OOO03BE 0000 611 UIOMS DC natal WORK AREA FOR UNEXP I/0 
000308 OA08 478 DC A(EXIT 6 EXIT WITHOUT RETURN SVC 0003C0 0030 612 FOX30 DC X*0030! 
QOO0O030A 0OA12 479 DC A(TERMA 7 TERMINATE SVC RTN 0003C2 1A 613 SPT DC X'qas NUMER SECTORS/126 BYTE TRK 
00030C OQOA84 480 DC A (OIO 8 RESET DEVICE SVC 0003C3 OF 614 SPT1 DC xe OF? NUM OF SECTORS PER 256 BYTE TRK 
OOO030E OAS8Y4 481 DC A(OIO 9 READ ID SVC 0003C4 F3C3FOFO 615 MDINM DC C'3c 00! M.D.I Ta De 
000310 OA84 482 DC A (OIO 10 START CYCLE STEAL SVC 0003C8 40404040 616 TUNAM DC ct SAVE AREA FOR T.U. I.D. 
000312 OA84 483 DC A (OIO 11 STAPT CYCLE STEAL STATUS SVC 0003CC C9 617 ICHAR DC ctr MoD bens «Ds 
000314 OAS8Y “By DC A (OIO 12 PREPARE DEVICE SVC 0003CD C4 618 DCHAR DC cC'pt TEST FOR DIAG PGM IN AUTO 
000316 OA84 485 DC A (OIO 13. READ WITH FUNCTION BIT 3 OFF SVC QOOO3CE D6 619 OCHAR DC c'oft 
000318 OA84 486 DC A(OIO 14 READ WITH FUNCTION BIT 3 ON SVC OOO3CF F3F8C6F14040 620 CFGN1 DC Ct38F1 ' 
00031A OA8U4 487 DC A (OITO 15 READ STATUS SVC 0003D5 40404040 621 SVNAM DC Cc! 
00031C OA84 488 DC A (OIO 16 WRITE WITH FUNCTION BIT 3 OFF SVC 0003D9 00 622 STFLG DC X'OOt 
00031E OAS84 489 DC A (OIO 17 WRITE WITH FUNCTION BIT 3 ON SVC O0003DA 0000 623 LSSVC DC A (*-* LAST SVC ISSUED 
000320 OA8¥4 490 DC A(OIO 18 CONTROL SVC 0003DC F3F8C6FO0 624 CONPG DC C*38F0! CONFIG PGM NAME 
000322 OB14 491 DC A (RCIB1 19 RELEASE INTERUPT CONTROL BLOCK SVC 000350 3E 625 HEX3E DC X'3E¢ 
000324 OR50 492 DC A (CICB1 20 CONNECT INTERUPT CONTROL BLOCK SVC 0003E1 01 626 HEX01 DC X'01! 
000326 OA8s4 493 DC A O10) 21 HALT 1/0 628 * ok IC oo RK Ko ok aR lok kok koi ck loki ik kok tok tak tok ak tf kok 
000328 OB8C ugg DC A(REQD1 22 REQUEST DCP DISKETTE SVC 629 * * 
00032A OBAY 495 DC A(RELD1 23 RELEASE DCP DISKETTE SVC 630 * THE FOLLOWING PARAMETERS ARE SET AT INITIALIZATION TIME * 
00032C 0O9D6 496 DC A (DUMMY 24 ** RESERVED FOR FUTURE EXPANSION ** 631 * * 
00032ER OBES uQT7 DC AL{ETH 25 EBCDIC TO HEX SVC 632 eee ee pee Pore! cen re en ee Se nae ey ema e 
000330 OBBC 498 DC A(HTE 26 HEX TO EBCDIC SVC OO0OO03E2 FF 633 INTLD DC X'FF?t INITIAL LOAD 
000332 OBFO 499 pc A(ATH 27 ASCII TO HEX SVC O0003E3 80 634 UDIND DC X'*80! INDICATORS FOR NT HE UDT ROUTINE 
000334 0OBC2 500 DC A (HTA 28 HEX TO ASCII SVC 0003E4 0000 635 CNFRT DC A (0) 
000336 OCOA 501 DC A(ETA 29 EBCDIC TO ASCII SVC 0003E6 00000000000000000 636 DVTAB DC 1TA (0) C I C B ADRESS POINTERS 
000338 0c18 502 pc A(ATE 30 ASCII TO EBCDIC SVC 638 8% a OR OK io io io koko kok icici ak tok detokoko gotta fork 
O0033A OC74 503 DC A(IREAD 31 READ DATA SETS FOR MDI/UTIL 639 * * 
00033C OCBC 504 DC A(IWRIT 32 WRITE DATA SETS FOR UTILITIES 640 * CONSTANTS USED BY THE CONVERSION ROUTINES * 
NOME Let eT TT SL STS TES SLE SSS SPSS SSS SS SS SS LSS SSC SSeS SSCL S SLL SSS CSS SS +S +S Pte eS 2 2 + 24 641 * * 
S07 * * GYD He He ee a 2h 2 He he eK ee aK 2 2 2 2 2 ah 2K i 2 aK 2 a 2K oe ae 2 oc he ee 2 a Re a oi 2 2 i a a ake ke ac afc fe ake ade ake age ac afc ok ake ok fe akc 
508 x COMMONLY USED CONSTANTS AND WORK AREAS * 643 * SO eto an TABLES 
509 * * 0003FC 00010203040506070 644 HEXTA DC 000102030405060708090A0BOCODOEOFOO! 
SLO Let Sf ete Pt tes Ste FSS SS SPSS SL SSS SS SS SSS SS SSS SSS SSS SSCS SSS SS SS ete St SS SL St 2S 00040D FO 645 MKFO DC cro. MASK AND ALIGN 
512 * UDT ROUTINE REGISTER SAVE AREA QOOO04O0E 30313233343536373 646 ASC11 DC Scaeaeeti (et eo cee ee 
Q00033EB 0356 513 DRSV DC A (DRSVH TEA 000432 232425262728292A2 647 DC S'#SREE"' () * 23<=>?0 
000340 03564 514 DRSVA DC A (DRSVH HLA OOO44kT 20 648 DC st t eONCE 
000342 0344 515 DC A (DRSVL LLA 000448 FOFTF2F3F4F5F6F7F 649 EBCDI DC C'*012345 6789 Pe ee eer n eT Uae a 
000344 0000 516 DRSVL DC A (0 00046C T7BSB6C507D4D5D5cC4 650 DC C'#SREEM! () ¥4+,-./3 3 <=>70 
000346 0000 517 DRSV7 DC A (0 REGISTER 7 000481 40 651 EBCBK DC cf SOKCE 
000348 0000 518 DRSVO DC A(O 0 OOO4U5F 652 NORES EQU EBCDI¢+TWEN3 
OO0OO034A 0000 519 DRSV1 DC A (0 1 OOO46A 653 YSRES EQU EBCDI4¢THRTY 
00034C 0000 520 DRSV2 DC AO 2 655 PS SPELL TS SSL SS SL SLT SS SSS TSS ST TS SS SSS SS SSL SS SSS ESS SSS SCS SSS SSeS e+ eee. ess £2 2. 
00034E 0000 521 DRSV3 DC A(O 3 656 * * 
000350 0000 522 DRSV4 DC A (0 4 657 * MESSAGES USED BY DCP AND THE UTILITY ROUTINES * 
000352 0000 523 DRSVS DC A (0 5 658 * % 
000354 0000 524 DRSV6 DC A(0 6 G59 WK He ee ae af 2K ke 2 ke 2h OK 2h IK ok ae 2K 2 RK 2 a 2h 8 2 ake 2k 2 aK 2 a 2 2 a a a ake a 8c ae age af ake ak af ae ae age 2c ae ake ae ake ake ic ofc a 
000356 525 DRSVH EQU_ * 000482 3805 660 A (PSTER) ERROR CODE 
527 * RESET I/O ROUTINE 000484 DTE3 661 PRMS DC C'pre 
000356 6000 528 DIPRE DC X'6000! RESET I BIT IDCB 000486 0080 662 PRPR DC X*00808 EOM AND DCP MSG CNTL FLD 
000357 529 DIPR hee DIPRE+ONE 000488 0484 664 PRPRM DC A eReeL ADDRESS OF MESSAGE 
000358 0000 530 D A (0) OOO4Y8A 3804 666 DC A (PTW ) ERROR CODE 
532 * CONVERSION ROUTINES (ATH/ETH/ATE/ETA) 00048C DT7E6N94OE3C8C5DID 667 PTMSG DC C'PWR THERM WARN'® 
Q0035A 0000 533 WORK Cc A (*-* WORK SPACE OO0049A O00CO 668 HEXOO DC X'O00CO* EOM AND DCP MSG CNTL FLD 
00035c 0000 534 WORK1 DC A (*-* USED BY VARIOUS 00049C 0O48C 670 PTMS DC A (PTMSG ADDRESS OF MESSAGE 
00035E 0000 535 WORK2 DC A (*-* ROUTINES IN DCP OOO49E 3803 672 MCKMG DC A (MCKCD ERROR CODE 
000360 F000 537 HLTIO DC X*FOOO!? IDCB FOR HALT I/0 OOO4AD0 D&C3D2 673 MCKM1 DC C'mMCK* 
539 ISSUE I/O ROUTINE (O10) OOO4A3 YODSCIDTITE 674 MCKM2 DC C* MAPp=! 
000362 6F 540 COMD DC X'6OF? COMMAND FIELD FOR RESET OOO4ASB EVETVETET40 675 MCKM3 DC C'*xxxx ° 
000363 20 541 DC Xx*20° COMMAND FIELD FOR RID OOO4AD E2E3C5D7ITE 676 DC C'*STEP='" 
000364 70 542 DC X'70! COMMAND FIELD FOR START 000432 EV7ETET7E740 677 MCKM4& DC C'xxxx ! 
000365 TF 543 DC X'7F* COMMAND FIELD FOR STCSS OOO4BT DTEZE67E40O 678 DC C'psw= ?* 
000366 60 544 pc x'60! COMMAND FIELD FOR PREP O0OO0O4BC EVE7VETE74O 679 MCKM7 DC C'xxxx ! 
000367 00 S545 DC x'oo! COMMAND FIELD FOR READO 90004C1 C9ICIDITESO 680 DC C'ITAR= ' 
000368 10 546 DC x*'10! COMMAND FIELD FOR READ1 0004C6 ETJETETETSO 681 MCKM8 DC C*'xxxx ! 
000369 20 547 DC X'20° COMMAND FIELD FOR RSTAT OOO04UCB CI9CKHC3C2ZTE 682 DC C'IDCB='" 
Q00036A 40 548 DC X'4uor COMMAND FIELD FOR WRITO 0004D0 EVEVE7VE7VE7TE7TE7E7 683 MCKMI9 DC C*'xXXXXXXxXxXx! 
00036B 50 549 DC X'50° COMMAND FIELD FOR WRIT1 0004D8 00C0 684 DC X'OO0CO? EOM AND DCP MSG CNTL FIELD 
00036C 60 550 DC xX'608 COMMAND FIELD FOR CTRL OOO4DA O4AD 685 MCKMA DC A (MCKM1 
552 * INPUT FROM PROGRAMMERS CONSOLE O004nNC 3806 687 DC A (INVCD ERROR CODE 
00036D OB 553 OPTB DC X'OB? OPERATOR COMMAND - BEGIN MANUAL MODE OOOXDE C9ODS5SE54O0D9C5D840 688 ERMS1 DC C'INV REQ ° 
00036E 00 554 CMND DC x'oot OPERATOR COMMAND OOOUR6 0080 689 DC X*0080! EFOM AND DCP MSG CNTL FLD 
QO0O036F 00 555 cCNCT DC X'0OO! CONSOLE INPUT WORD COUNT OOO4EB ODE 691 INCMD DC A (ERMS1 ADDRESS OF MESSAGE 
000370 0000 556 CNDAT DC A (*-*) CONSOLE INPUT DATA AREA OOO4EA 389B 693 DC A (LPCD4& ERROR CODE 
000372 0002 558 CNVTX DC A ra OOO0O4EC CHCOIOE2D2C 5E3E3C54 694 LPG4 DC C, DISKE TE ERROR®* ; 
000374 0370 559 CNVTY DC A(CNDAT OOO4YFA O00C0 695 DC X*O00CO0? EOM AND DCP MSG CNTL FLD 
000376 1724 560 CNVTZ DC A (PRTBU OOO4FC O4EC 697 LPB DC a tt beps ADDRESS OF MESSAGE 
562 STRAY INTERRUPT ROUTINE eeu OOO4YFER 380C 699 DC A (LPCD5) ERROR CODE 
000378 ODIC 563 STRIT DC A (STO 1) ADDR USER DEVICES INT RTN 000500 »pD7D5cC540 700 LPGS DC C*'*PNF ¢ 
00037A 6F00 564 SIRST DC X"6FO0' A DEV RESET FOR STRAY INT IDCB 000504 EVETVETET7T 701 LPGSA DC Ct'xxxxt 
00037B 565 SIRS EQU SIRST+tONE 000508 Q00CO 702 DC X*O00CO! EOM AND DCP MSG CNTL FLD 
567 CONVERT conteey BLOCKS 00050A 0500 704 LPC DC A Eee ADDRESS OF MESSAGE 
00037C 0002 568 RTNCV DC A HO} 00050C 380A 706 DC A (BPCD5) ERROR CODE 
00037E 180A 569 DC A RIN ) 00050E E253 707 BPGS Dc crsqtt 
000380 O4A8 570 DC A (MCKM3) 000510 0080 708 DC X'*0080! EOM AND DCP MSG CNTL FLD 
000382 0002 572 CKPTC DC A arot 000512 O5SO0E 710 PARLS DC A peony ADDRESS OF MESSAGE 
000384 180C 573 DC A(CKP i 000514 3800 712 DC A (RECD1) ERROR CODE 
000386 O48B2 574 pc A (MCKM4) 000516 DIC4HESBYO 713 DCPWM DC C°'RDY * 
000388 0002 576 PSWCV DC A Cant 009051A 0080 714 DC X*0080! EOM AND DCP MSG CNTL FLD 
00038A 1724 577 DC A (PRTBU 00051C 0516 716 REMG1 DC A ALTON ADDRESS OF MESSAGE 
00038C O4BC 578 DC A (MCKM7 00051E 3807 718 DC A (ALTCN ERROR CODE 
00038E 0002 580 IARCV DC A(TWO 000520 CiID3E340C3D6ED540D 719 ALTRC DC CYaALT CON OFF ! 
000390 1724 581 DC A (PRTBU 00052cC 0080 720 DC X*0080! EOM AND DCP MSG CNTL FLD 
000392 O4C6 582 DC A (MCKM8 00052E 0520 722 ALCON DC A (ALTRC) ADDRESS OF MESSAGE 
000394 0Q004 584 DCBCV DC A (FOUR 000530 3808 724 DC A (RES) ERROR CODE 
000396 1724 585 DC A (PRTB N00532 CI9ZE34O0C3D6D540D 725 REAS DC CYtaLT CON ON! 
000398 O4DO 586 DC A (MCKM9 00053C 0080 726 DC x*oo08so? EOM AND DCP MSG CNTL FLD 
00039A 0002 588 UNEXP DC A aroe 00053E 0532 728 REASG DC A (RE Po) ADDRESS OF MESSAGE 
00039C O3BE 589 DC A (UIONS 000540 3809 730 DC A (0X FY ERROR CODE 
00039E 0550 590 DC A(UIMSG 000542 E4&D5C5SE7T4OCIOD5SE3Y4 731 UNXPC DC C'UN NE INT ISB= ! 
Q0003A0 0000 592 CNVT DC A 000550 40404040 732 UIMSG DC uct 
Q0003A2 0000 593 CNVT1 DC A 000554 =0O0C0 733 DC x*00CO! EOM AND DCP MSG CNTL FLD 
OO003A4 1730 594 CNVT2 DC A (PRBUF) 000556 0542 735 UNEIO DC A (UNXPC) ADDRESS OF MESSAGE 
0003A6 0001 596 DEVAD DC A un 000558 0000 737 BPRG DC A (*-*) ERROR CODE 
Q0003A8 0573 597 DC A(PRGNA 00055A 738 PRG EQU * 
QOOO03AA 0573 598 DC A (PRGNA 00055A 5C5C5C4H0 739 DC Ciexx 
O0003AC O004 600 CNVNM DC A aah 00055E 4Ou4OKO4O4O4OD3DEC 740 PRGN DC ct LOADED' 
OOO3AE O55F 601 DC A(PRGN1 OO0056A 4OCH4C5SES4OCIC4HDIT 741 PRGNB DC C* DEV ADR=! 
9003B0 0558 602 DC A (BPRG) 000573 4040405c5C5c40 742 PRGNA DC Cc! AK Oe THE DEVICE ADR IS uaeey HERE 
0003B2 0000 604 REVT DC A (*-~-* 00057A 0080 743 DC X*0080! FOM AND DCP MSG CNTL 
0003B4U 0000 605 REVT1 DC A (*-* O00055F 744 PRGN1 EQU PRGN+ 
0003B6 0000 606 REVT2 DC A (*-* 000561 745 PRGN3 EOQU PRGN+THREE 
0003B8 0000 608 UDTR2 DC A(0 000562 746 PRGN4Y EQU PRGNt+FOUR 
0O0O03BA 0000 609 UDTRY DC AO 000563 747 PRGNS EQU PRGNtFIVE 
0003BC 0000 610 UDTR5 DC A{0 00057C O55A 749 LPD DC A (PRG) ADDRESS OF MESSAGE 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
751 ea ko kK tok ik tok ek fk a RK KK KK dk ok ee a ko ok ke ok 000676 =4&E80 867 TBTR {BGs ZERO) IS THE CONFIG TABLE RESIDENT 
7152 * * 000678 6801 OFF2 868 BNZ B-YES 
7153 * NAME SCHEDULER * 00067C D420 O3BA 869 MVD UDTR4,R4 RELOAD SECTOR ADR 
754 * * 000680 4020 O3E4 O65E 870 MVA  UDTOA,CNFRT RETURN ADR 
735 : PURPOSE THIS ROUTINE DETERMINES WHICH PROGRAM IS TO RUN * 000686 6802 OF22 874 re B i LPO7B REREAD CORRECT SECTOR 
157 * x 00068A 9128 0018 O3BA 873 MVD (R1 QAV1) UDTRY SAVE THE POINTER 
158 * METHOD IT IS CALLED BY A BRANCH TO SCHED * 900690 4224 134A 874 aa NVA DBUf+ VHD £,R2 ADJUST PAST HEADER 
T60 KH RK RK HK HA KK KK I I 2 fe I 36 iC a 2 oR 2 ik i 2 2 ae a cae of ae ake ae 2 afc ake ak a ac ac ak ake afc of fe ak akc 000694 6908 O34A 876 MVW DRSV1,R1 RESTORE R1 
00057E 761 SCHED EQU * 000698 c060 0001 877 MVB (21, ORE) RO NUM OF DEVICES TO ASSIGN 
00057E C320 03D9 762 STFLG,R3 IS STPAY INT FLAG ON 00069C 4E42 878 TBTS (R6,TWO THE CONFIG TABLE IS RESIDENT 
000582 1A05 7163 JNN  SCHD1 J-NO 00069E 879 UDTO6 EQU- #* 
000584 8028 03C3 03D9 764 MVB SPT1,STFLG CHANGE FLAG 00069E 4901 880 TST (Ra CKDAD) IS A SPECIFIC DEV REQ 
00058A 6802 O7D4 765 B SVCRt SVC RETURN 0006A0 100B 881 JOFF vpr44 J-NO 
00058E 766 SCHD1 EQU * OO06A2 4E43 882 TBTS (B6 ¢ THREE) IND A SPECIFIC DEVICE IS REQUESTED 
00058E 5820 02D8 7167 SEIMR MINON T/ON ALL INT BITS OO06A4 0102 883 ABI WO,R1 BUMP R1 
000592 6201 768 SM ALLOW ANY INTERUPT PENDING 000646 4990 884 TBTR (R1,UDTAS) RESET ASSIGNED BIT 
000594 4724 0234 769 MVA INDIC ADR OF DCP IND 0006A8 885 UDTO7 EQU 
000598 4F89 770 TBTR (RT eC CONDY) IS THE INPUT FROM CONSOLE 0006A8 8983 886 Cc gpa (R2) IS THIS THE SPECIFIC ONE 
00059A 100A 771 JOFF scubh BYPASS CONSOLE LSB OOO6AA 102A 887 JE DT24 J-YES 
00059C 4624 O5B2 772 MVA SCHD3, R6 RESIDUAL ADDRESS AFTER LEX OOO6AC 4A12 888 TBT (R2 TBEND) END OF THE TABLE 
000540 CE24 026C 173 CW CONLB, R6 INTERRUPT ADDRESS OOO6AE 1274 889 JON 87 J-YES 
00O05A4 1005 774 JE SCHD2 B/YES WAIT 0006B0 4A13 890 TBT (R2 SCEND) END OF SECTOR 
0005A6 4124 026C 7715 MVA  CONLB,R1 ADR OF CONSOLE LSB 0006B2 1252 891 JON DT35 J~YES--GO GET NEXT SECTOR 
OOO5AA C260 0017 7176 MVB (RI, ORAL) ,R2 GET THE CURRENT LEVEL O006B4 0210 892 ABI SIXTN,R2 BUMP TO NEXT ENTRY 
OOOSAE 5SA46 177 SELB R2, (R1) RELOAD REGS 0006B6 5SOF8 893 J UDTO7 TRY THE NEXT ENTRY 
0005B0 778 SCHD2 EOQU- * 0006B8 894 UDT14 EQU * 
0005B0 6100 779 LEX ZERO TO RESUME RUNNING 0006B8 0102 895 ABI TWO,R1 BUMP R1 
0005B2 780 SCHD3 EOQU- * OOO6BA E340 896 MVS 4B ZERO) ,R3 IS THIS A ZERO ENTRY 
782 32 I IOI I OR IO IGOR IG I I a ial koi tok ok OOO0O6BC 1046 897 Z D36A B-YES 
7183 * * O0O06BE 4990 898 TBTR (RI, UDTAS) WAS A DEVICE ASSIGNED 
784 * THE FOLLOWING ROUTINE IS BRANCHED TO AT IPL TIME AND ON A * 0006C0 1010 899 JOFF 018 J-NO 
785 * RESTART OF A DIAGNOSTIC PROGRAM. * 0006¢2 900 UpT15 EQU. * 
7186 * * 0006C2 4EB4 901 THTR (R6,FOUR) WAS THE ALT CON ASSIGNED 
787 2A AICCCR ICO GO ICI IGOR ER IG aOI a aoc 0006C4 100C 902 Z DTis J- 
0005B2 788 RESTR EQU- * 0006C6 4724 0234 903 MVA  INDIC,R7 ADR OF pcp INDICATORS 
0005B2 582F 0262 789 CPPSR BCKLB+ ORG CLEAR THE PSW OOO6CA 4F47 904 TBTS (Ra AETDv) T/ON TH ND 
0005B6 4020 OOOE O7F4 790 MVA PC CKSI RESTORE THE PROGRAM CHECK START ADR 0006CC 882C 17E8 178E 905 MVW WTAD, ACVTR* R CT ORES tN ADR 
0005BC 4020 OO1E 0926 791 MVA CONEP,CONST RESTORE CONSOLE 0006D2 4885 906 TBTR (R6 FIVE) DID DCP T/ON THE STOP BIT 
0005C2 4020 001C 026Cc 7192 MVA  CONLB, CONPT INTERRUPT POINTERS 0006D4 1001 907 IZ pt 4 J-NO 
0005C8 4724 0234 793 MVA TNDIC, ADDRESS OF DCP INDICATORS 0006D6 4F86 908 TBTR (R7,STOP) T/OFF IND 
0005cC 4F89 794 TBTR DT Coty TURN OFF PROG CONSOLE BiT 0006D8 909 UDT16 EQU 
0005CE 0812 795 MVBI RTEEO ACFCS,RO GET NUMBER WORDS TO ZERO ON 0006D8 4724 053E 910 MYA REASG,R7 ADR OF MSG TO OUTPUT 
0005D0 4124 1794 196 MVA cores ,R1 RESTART-ADDR 1ST WORD 0006DC 60060 911 SVC. OUT PRINT THE MSG 
0005D4 797 REOS EQU * OO006DE 912 UDT18 FOU * 
0005D4 C255 7198 MYVBZ (R1) + 9B R2 ZERO OUT SWITCHES QOO06DE 4E01 913 TBST (R6 ONE) IS THIS THE END OF TABLE 
0005D6 BBFE 799 JCT  BEO IF NOT DONE LOOP O006EO 1836 914 INZ DT31 J-IF TABLE END 
0005D8 C220 O24A 800 MVB BEOS (if - TS THIS THE CONFIG RUN 0006E2 915 U18 FOU * 
0005DC 1009 801 JZ RE4O J-NO N006B2 4EO3 916 TBT {x6 THREE) IS A SPECIFIC DEVICE REQUESTED 
0005DB 4224 03DC 802 MVA  CONPG,R2 ADR OF CONFIG NAME O0O06E4 1881 917 INZ T67 J-YES 
O0O05E2 4324 1800 803 MVA  PID,R3 ADR OF DIAG AREA 0006E6 £380 918 MVWS (R2 ZERO) ,R3 IS THIS A ZERO ENTRY 
0005F6 8028 036D 036E 804 MVB  opr8,CMND FORCE A BEGIN PGM 000688 1005 919 IZ T J-YES--IGNORE IT 
0005EC 6802 OF84 805 B BPPG BEGIN CONFIG RUN OOO6EA 81AB 0001 0001 920 CB R1,DVTYP),(R2,CUDT) IS THIS THE TYPE NEEDED 
0005F0 806 REGO EQU- * 0006FO 1007 931 JE pT)1 J-YES 
0005FO C220 03E2 807 MVB INTLD,R2 IS THIS AN INITIAL RUN O006F2 1282B 922 JLGT UD30A 
0005F4 780A 808 JNZ RESO B-YES OO006FY 923 uUDT19 EQU. * 
O0O05F6 4FOD 809 TBT (BF LDIAG) IS LOOP DIAGNOSTIC PACKAGE SELECTED OOO6F4 4A12 924 THT (B2 T BEND) END OF THE TABLE 
0005F8 1202 810 JON EW] J-YES 0006F6 1250 925 JON DT37 J-YES 
OOO5FA 4FOY 811 TBT 22 LODED) IS THERE A PROGRAM LOADED O0OO6F8 4A13 926 TBT R2,SCEND) END OF SECTOR 
0005FC 1006 812 JOFF RESO J-NO OOO6FA 122E 927 JON DT35 J-YES--GO GET NEXT SECTOR 
OOO5FE 813 RE41 EQU * 0006FC 0210 928 ABI SIXTN,R2 BUMP TO NEXT ENTRY 
OOO5FE 4224 0486 814 MVA  PRPR,R2 IND NO DIAG SPECIFIED OOO6FE SOF? 939 J u18 
000602 4324 1800 815 MVA  PID,&3 PROG RESIDENT AREA 000700 930 upDT21 EQU) * 
000606 6802 OEF80 816 B BPPGM BEGIN PROGRAM RUN 000700 88A3 0240 931 Cc OPADR, (R2) IS THE ALT DEV UP FOR TEST 
00060A 817 RE50 EQU- * 000704 1812 932 JNE UDT27 -NO 
OO060A 4724 051C 818 MVA  REMG1,R7 ADR OF WAIT MSG 000706 4524 0234 933 MVA  INDIC,RS5 ADR FOR DCP INDICATORS 
90060E 6000 819 SVC OUT OUTPUT THE MSG OOO70A 4DO7 934 TBT (R5 aftpDv) WAS AN ALT DEV ASSIGNED 
000610 820 RETRN EQU * 00070C 1008 935 JOFF wUpr27 J-NO 
000610 opo1 821 MVBI ONE,R5 SET REG TO 1 QN0070E 4724 052E 936 MVA  ALCON,R7 ADR OF MSG TO BE PRINTED 
000612 4724 0234 822 MVA  IND{C,R7 ADR OF DCP INDICATORS 000712 6000 937 Svc OUT PRINT THE MSG 
000616 4FO7 823 TBT (R7, ALTDV) IS AN ALTER DEVICE ASSIG 000714 4D87 938 TBTR (R5,ALTDV) RESET THE ALT DEV ASSIG IND 
000618 6A10 1766 824 BON acmSc* B-YES 000716 4E44 939 TBTS (R6,FOUR DCP TURNED ALT CON OFF 
00061C 5030 825 J SCHED NO--RETURN TO SCHEDULER 000718 4D46 940 TBTS (R5,STOP T/ON THE STOP BIT 
827 AOR OO IGG OG IG IG IG GIGI GIG GIORGI GI I ak a kak ak ak kak aoe ak OOO71A 1201 941 JON DT95 J~IT WAS ON 
828 * 00071C 4E4S 942 TBTS (R6,FIVE) DCP TURNED ON THE STOP BIT 
829 * THE FOLLOWING ROUTINE WILL ASSIGN DEVICE ADDRESSES * OO0071E 943 uDT25 E00 * 
830 * UESTED. IT WILL ALSO ASSIGN A DEVICE ADDRESS FOR x 00071E 8838 178E 17E8 944 MVW  ACVTR*,INTAD SAVE THE ADR 
831 * ICE TYPES REQUESTED. A MAXIMUM OF 8 DEVICES WILL * 000724 4030 178E 0378 945 MVA STRIT,ACVTR* STRAY INTERRUPT ADR 
832 * BE ASSIGNED IF THEY ARE CHAINED IN THE CONFIGURATION TABLE. * 00072A 946 UDT27 EU x 
833 * * 00072A OFOA 947 “aVBI TEN,R7 NUM OF BYTES TO MOVE 
SMP LST StS FST T LT SSPE PETE TTS PSPSPS TSS SS TTS LST SESS STS SSS TSS SSS SSS SSS SSS SESS SSE +S 0007 2C 2A24 948 MVFN peas §R1) MOVE THE DATA 
10961E 835 UDTID EU * 00072E 02F6 949 ABI 10,8 ADJUST POINTER 
J0061E 4324 1800 836 MVA PID ADR OF DIAG PROG 000730 O0O1F6 950 ABI M10,R1 AGAIN 
000622 R81C4 837 MVWS (R3, ‘Abveay R1 ADR OF DIAG DEV TAB 000732 4950 951 TBTS (R1,UDTAS SET THE ASSIGNED BIT 
000624 C060 0001 838 MVB R1,ONE) , 80 ANY DEVICES NEEDED 000734 4aA12 952 TBT R2,.TBEND END OF THE TABLE 
000628 68E0 0000 839 BZ R7 ~NO--RET 000736 1230 953 JON DT37 YES 
00062C 812B 0003 0381 840 CB R1, THREE) ,HEX01 fs THIS ‘a TERMINATION 000738 4:13 954 TBT (R2 SCEND) SND OF SECTOR 
000632 6800 OASE 841 BE ERAC B-YES 00073A 1208 955 JON DT35 J-YES--GO GET NEXT SECTOR 
000636 8828 0340 033E 842 MVW DRSVA DRSV RESTORE THE POINTER 00073C 4911 956 TBT cra ‘baa MULTIPLE ENTRIES 
00063C 4028 033E C000 843 STM DRSV SAVE ALL REG 00073E 1004 957 JOFF DT30 J-NO 
000642 4624 03E3 844 MVA ReePRsy INDICATOR ADDRESS 000740 0800 958 MVBI ZERO CLEAR RO 
000646 4901 845 TBT (RIC CkBRD) REQUESTING A DEV 000742 0210 959 ABI = SIX ogee BUMP TO NEXT ENTRY 
000648 1003 846 JOFF J-NO 000744 960 UD29A FOU 
OO064A G4EYO 847 TBTS (R6, 2.ERO) T/ON IND TO LOAD CONFIG TABLE 000744 010A 961 ABI TEN BUMP R1 
00064C 4EB1 848 TBTR (R6,ONE) RESET THE END OF TABLE INDICATOR 000746 50DC 962 J ens eT CONTINUE 
O0064E SOOA 849 3 761 000748 963 UDT30 EQU 
000650 850 UDTNO EQU * 000748 0210 964 ABI © SIXTN, R2 UPDATE POINTER 
000650 4E01 851 TAT (RG ONE) REACHED THE END OF TABLE OOO74A 965 UD30A EQU 
000652 1003 852 IZ Doba . J- OOOT4A 0108 366 ABI EIGHT, R1 UPDATE POINTER 
000654 49A0 853 TBTR (Rt PDTAS) RESET ASSIGNED BIT 00074C B8B5 967 ICT UDT 14, RO ASSIGN ALL REQ DEVICES 
000656 1235 854 JON pTis J-IF ON O0074R 968 UDT31 EU 
000658 SOTA 855 J UDT31 RETURN OOO74E 6AOD 03B8 969 MVW gUDTR2 SAVE REG 2 
00065A 856 UDOOA EQU * 000752 4E83 970 TBTR 188, THREE) RESET A SPECIFIC DEVICE REQUESTED 
000654 4802 857 TBT (R6 TWO) IS THE CONFIG TABLE RESIDENT 000754 402A 033E 971 LMB RETURN 
00065C 1003 858 JZ pT61 J-NO--REFETCH 000758 972 uUDT35 FOU 
00065E 859 UDTOA EQU * 000758 p028 17F4 973 MVD RO SAV SAVE THESE REGS 
00065E 6A08 03B8 860 MVW UDTR2,R2 GET SAVED POINTER 00075C 4124 0250 974 MVA PCKLB,R1 ADR OF THE QUE 
000662 5018 861 J UDTOY 000760 D420 O3BA 975 MVD UDTR4&/ RG GET THE SECTOR PARAMETERS 
000664 862 UDTO1 EQU * 000764 0401 976 ABI ONE,R4 UPDATE 
000664 4020 17EE 03CF 863 MVA CFGN1,FNDPG ADR OF DATA SET TO FIND 000766 OSFF 977 ABI 1,85 THE SECTOR PARAMETERS 
00066A 4724 0234 864 MVA  INDIC-R7 ADR OF DCP INDICATORS 000768 1017 978 JZ UDT37 ALL THRU 
00066ER UFUE 865 TBTS (R7,CNHRUN T/ON IND CONFIG RUN OOO7T6A 4724 0234 979 MVA  INDIC DCP INDICATORS 
000670 4020 O3E4 068A 866 MVA pT63,CNFRT RETURN ADR 00076E 4FUE 980 TBTS (RT CREUN) T/ON THE IND 
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C3800 - DIAGNOSTIC CONTROL PROGRAM (DCP) P/N=1635013 FC=375147 PAGE 05 C3800 - NIAGNOSTIC CONTROL PROGRAM (DCP) P/N=1635013 FC=375147 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000770 4020 O3E4 O77A 981 MVA UDT36,CNFRT RETURN ADR 00084C 9038 17BE 1724 1097 MVD IDCB*, PRTBU CONVERT IDCB 
000776 6802 OFTE 982 B LPO7TA GET THE NEXT SECTOR 000852 4724 0394 1098 MVA DCBCV,R7 CONVERT BLOCK 
OOO77A 983 UDT36 eeu * 000856 601A 1099 SVC HTOE 
00077A 9128 0018 O3BA 984 MVD {R1,QAV1) ,UDTRA SAVE THE SECTOR POINTER 000858 6808 180A 1100 MVW RTNE, RO SETTING 
000780 p020 17Fyu 985 MVD AV,RO RESTORE THIS REG Q0085C E340 1101 MVHS ch O6TAR) ,R3 THE REGISTERS 
000784 4224 1330 986 MVA DBUF+CHDLG, R2 POINT TO DATA O0085E 6C08 17BE 1102 MVW pcb, R4 FOR THE 
000788 4910 987 TBT R1,UDTAS) WAS A DEVICE ASSIGNED 000862 E249 1103 MVHS dBi OR6),R2 PROGRAMMER'S 
00078A 10AB 988 JOFF 18 CONTINUE 000864 6908 180C 1104 MVW KPT R1 CONSOLE 
00078C 4911 989 TBT §B2 EXPNT) CHAIN RIT ON 000868 4724 ODA 1105 MVA MCKMA,R7 MESSAGE ADDRESS 
OOO78E 12DA 990 JON D29A J-YES 00086C 500D 1106 J PTW1 PRINT PROGRAM CHECK MESSAGE 
000790 “EO3 99] TBRT Ane THREE) IS A SPECIFIC DEVICE REQUESTED RMR tet eS fees SSL SSS SSE SES STS SS SS SSS SSeS SSS CSS STS SS SSS SSC eS Te Se Te Se ST eS SS 2s te 
000792 188A a92 INZ pT67 J-YES 1109 * x 
000794 0102 993 ABI TWO,R1 BUMP R1 1110 * NAME MCKEP * 
000796 50D9 9904 J UD30A CONTINUE 1111 * * 
000798 995 UDT37 EQU x 1112 * PURPOSE THE MACHINE CHECK INTERRUPT HANDLER * 
000798 4E82 996 TBTR R6, TWO RESET THE CONFIG TABLE LOADED BIT 1113 * x 
OOO79A 4RE41 997 TBTS R6,ONE SET THE END OF TABLE INDICATOR 1114 * METHOD PRINTS A MESSAGE TO INDICATE A MACHINE CHECK * 
00079C 50D8 998 TERMINATE SEARCH 1115 x i 
1000 3630 kok ok iokoik i look io iI OK Rk I gk kK a kok ak kia koko ak fk kaka akc akk ok TT16 eR ok kk ko Kk ok i oR lok ik dak ik ak kok kok kkk fc ak ak ake ak ate ke ate ake ake ae a 2k fe oc ake ak 
1001 * *x OOO86E 1117 MCKEP EQU x 
1002 * NAME INITIAL SVC HANDLER * OO0O086B 582F 0262 1118 CPPSR PCKLB+tQR6 SAVE PSW 
1003 * * 000872 4020 O4SE 3803 1119 MVWI MCKCD,MCKMG MACHINE CHECK CODE 
1004 * PURPOSE THIS ROUTINE HANDLES THE INITIAL SVC. It * 000878 4020 OYAO DHEC3 1120 MVWI MCKLB, MCKM1 MC TO THE MESSAGE 
1005 * DETERMINFS WHO SHOULD GET CONTROL AND PASSES * OOO087E 4124 0250 1121 MVA PCKLB,R1 ADR OF LSB 
1006 * CONTROL TO THAT INDIVIDAL SVC ROUTINE. * 000882 50CB 1122 J PCK20 
1007 * x MAT STS SSS SSS ST SS SPSS TSS SS ES SSS SSS SCS SS SSCS SC SS SLCC LOSS OCOSCSCSSCCCe CS SSS Ce S ST Te 
1008 * METHOD THIS ROUTINE BUILDS A QUE BLOCK AND PASSES THE * 1125 * * 
1009 * ADDRESS OF THAT BLOCK TO THE INDIVIDUAL SVC * 1126 * NAME PTWEP * 
1010 * ROUTINE IN XR1. x 1127 * * 
1011 * x 1128 * PURPOSF POWER ~- THERMAL WARNING INTERRUPT HANDLER * 
1012 KK KK tk Ok Rok rk kk i giok i tok ico kukiokok tok ck kok oki ak ak ak kok oak 1129 * * 
O0079E 1013 SVC EOU * 1130 * METHOD SET A SWITCH INDICATING TO DCP THAT A POWER - THERMAL * 
OO0O079E 6908 0010 1014 MVW SVCPT,R1 ADDR OF SVC LSB POINTER 1131 * INTERRUPT HAS OCCURRED. *x 
OOO7A2 4&24 O2D8 1015 MVA DMONE, RY ADR OF THE END OF LSBtS 1132 * ak 
OOO7TA6 7425 1016 CW RYU.P1 END OF THE LSB'S YET (CRT Tete TP SLT SS STS SSS SSS PS SSS SSS CSS ST CCS SSeS eC SSS SSS SSCS CSS S Se Tee TS See SS te 
OOO7A8 1804 1017 JNE sve05 B-NO 000884 1134 PTWEP Eo * 
OOO7AA 4424 3815 1018 MVWI SVCOD,R4 PUT CODE IN R4& 000884 4724 O49C 1135 MVA PTMS,R7 ADR OF MESSAGE THERMAL SWITCH 
OOO7AE 7890 1019 SECON R4 PUT THE CODE IN LIGHTS 000888 1136 PTW EQU x 
0007B0 SOFF 1020 J x 000888 680C 0360 1137 T HLTIO RESET ALL CHANNEL ACTIVITY 
000782 1021 SVCO5 EQU * 00088C CE25 179C 1138 MVWZ PRTSW,R6 RESET THE PRINT BUSY SW 
0007B2 4029 0010 OO1C 1022 AWI TWENS,SVCPT BUMP TO NEXT LSB 000890 6000 1139 SVC OUT 
000788 7899 1023 CPCL R& COPY CURRENT LEVEL 000892 4724 0234 1140 MVA INDIC,R7 ADDRESS OF DCP INDICATORS 
OOO7BA C4&u68 0017 1024 MVB RY, (R1,QRAL SET LEVEL FOR RETURN 000896 4FO00 1141 TBT see AUTO) AUTO MODE 
OOO7BE E340 1025 MVWS GRU QTAR) ADDR OF SVC 000898 1201 1142 JON TW? J/NO - MANUAL MODE 
0007C0 O3FF 1026 ABIL 2.R RACK UP 2 BYTES QOOO8S9A 6007 1143 svc TERM TERMINATE THIS PGH 
0007C2 C4EO 0001 1027 MVB (R5, ONE) R4 MOVE SVC NUMBER INTO QUE BLK 00089C 1744 PTW2 EQU * 
0007C6 C468 0016 1028 MVB 4, (R1,Q8VC) 00089C OFO3 1145 MVBI THREE,R7 LEVEL THREE 
OOO7CA 1029 SVv10 EQU * O0089ER 6004 1146 SVC CHNGE CHANGE LEVEL 
OOO7CA F420 1030 CBI VLDSV,R4 IS THIS A VALID SVC OOO8AO0 6802 OASE 1147 B TERMC TERMINATE 
0007CC 1103 1031 JP SVCPT J-NO RETURN Peet TTS LS TS SSS S SST SSS TSS SS SS SSS SS SS SS SP eet tee eee Ce CCS LCoS SCS SSS Se SS CS es 2 2S 
OOO7CE 3409 1032 SLL ONE, R4 DOUBLE FOR 2 BYTE PARA 1150 * 
0007D0 6892 O2FC 1033 j B (K4,ISVCP) * BRANCH TO INDIVIDUAL SVC ROUTINE pa : NAME OUT/OUTIN (SVC 0/1) : 
1035 * RETURN HERE TO RETURN TO NSTI 1153 * PURPOSE THIS ROUTINE IS ENTERED WHEN AN OUT, OR OUTIN * 
1036 * 1154 * SVC IS ISSUED. IT WILL DISPLAY THE WORD IMMEDIATELY * 
0007D4 1037 SVCRT EQU * 1155 * PRECEDING THE USER MESSAGE IN THE CONSOLE LED'S. * 
0007D4 C320 179C 1038 MVB PRTSW,R3 IS THE PRINT SW ON 1156 * IF THE SVC WAS OUTIN IT WILL ACCEPT DATA KEYED IN * 
0007D8 1806 1039 JNZ SVCR1 J-YES 1157 * THROUGH THE CONSOLE AND RETURN IT TO THE USER. * 
OOO7DA C320 03D9 1040 MVB STFLG,R3 IS THE STPAY INT FLAG ON 1158 * 2 
OOO7DE 1003 1041 JZ SVCR1 J-NO 1159 * METHOD * 
0007EO C325 03D9 1042 MVBZ STFLG,R3 CLEAR THE FLAG 1160 * * 
OOOT7EY 5005 1043 J SVCR2 RETURN 1161 SS PS SSS SPSS SS SSS SSE SSS LESS SPSS SSL SL SS SSS +S SSCSSCSS SCS eS SLT SSIES SSE SCS SSL oT es 
O007E6 1044 SVCR1 EQU * OOO8AY4 1162 CONSO EQU 
O0OO007E6 690D 0010 1045 MVW R1,SVCPT RESET LSB POINTER TO FREED LSB OOO8A4Y 6201 1163 EN SM ENABLE THE SUMMARY MASK 
OOO7EA C260 0017 1046 MVB (R1, ORAL) ,R2 GET THE RETURN LEVEL COO8A6 6808 179C 1164 MVW PRTSW,RO IS THE PRINT SW ON 
OOO7EE 5SA4E6 1047 SELB 2, (1) RETURN TO CALLER - NSI OOO8AA 18FC 1165 JINZ CONSO J-YES WAIT YOUR TURN 
0007F0 1048 SVCR2 EQU x NO08AC 6301 1166 DIS SM DISABLF INTERRUPTS 
OOO7FO 6802 O58E 1049 SCHD1 RETURN OOO8AE 806B 1793 0016 1167 CB OUT1, (R1,QSVC) SEE IF OUT/IN SVC 
OREM TESS SS SS StS SS SSS SSS SSCS CSS CSCS CCC SST eS eT eS SCS SSCS SSCS CCS LSS SCS SSS SS SS Se te OOO8BY4 180C 1168 JNE ou0o1 B-NO 
1052 * * OO0OO8R6 8028 02D8 1798 1169 MVB HEXFF,INPRC SET THE OUT/IN INPROC IND 
1053 * NAME PCKEP * OOO8BC 6FOD 17F8 1170 MVW  =R7,SAY SAVE R7 
1054 * * 0008CO 4624 0234 1171 MVA INDIC,R6 DCP INDICATORS 
1055 * PURPOSE PROGRAM CHECK INTERRUPT HANDLER * O008C4 4EDD 1172 TET Ate AGTO) IN AUTOMATIC MODE 
1056 * * 0008C6 1086 1173 JOFF VCRT YES-RETURN TO CALLER 
1057 * METHOD DETERMINE IF PROGRAM CHECKS WILL BE HANDLED * 0008C8 4F30 1174 TBT (R7,MDIRT) MDI OUT IN 
1058 * BY THE DIAGNOSTIC PROGRAM. * OOO8CA 1001 1175 JOFF Ou0 4 J-NO 
1059 * ----ON RETURN TO THE DIAGNOSTIC PROGRAM * OO0OO08CC 4EYB 1176 TBTS (R6,RTMDI) SET IND FOR DCP 
1060 * R7 = IAR WHERE PROGRAM CHECK OCCURRED * OOO8CE 1177 oU01 EQU % 
1061 * R6 = PSW AT THE TIME OF THE INTERRUPT. * OO08CE 73E7 1178 AE R3,R7 DATA ADR TO R3 
1062 * RETURN IS THROUGH THE DIAGNOSTIC PROGRAM * 0O008DO0 8B28 FFFE 179A 1179 MVW (R3,M2) ,GRPT SAVE 
1063 * PROGRAM CHECK-~ENTRY POINT. *x 0008N6 1180 0OU10 EQU * 
1064 * x 0008D6 CBCO 1181 MVW f87}, R3 GET DATA BUFFER ADDR 
1065 * ON TERMINATION THE PSW, IAR, AND x GOO08D8 6B0D 17BC 1182 MVW Sy £sv ADR OF MESSAGE TO PRINT 
1066 * PROGRAM ID ARE PRINTED IN THE PROG-CK MSG. * 0008DC O3FE 1183 ABIL M2,R3 GET THE CODE 
1067 * OOO08DE E4CO 1184 MVWS (R3) Rd GET WORD TO DISPLAY 
41068 267 KK AICO OK I OR IO lok ro i IFO RI IR II Ik kai kak a kak ic af ae agai ak OOO8EO 7890 1185 SECON R4& SET LIGHTS WITH DATA IN XR4 
OOO7F4 1069 PCKEP EQU * OO0OO8F2 0302 1186 ABIL TWO,R3 RETURN R3 TO MESSAGE ADR 
OOO7F4Y 582F 0262 1070 CPPSR ERT eons SAVE PSW OOO8E4 4724 0234 1187 MVA INDIC, R7 ADR OF DCP INDICATORS 
OOO7F8 4124 0250 1071 MVA PCKLB,R1 ADDR OF PROGRAM CHECK LSB OOO08E8 4FO7 1188 TBT (R7,ALTDV) IS ALT OUT ASSIGNED 
OOO7FC 4020 O49E 3802 1072 MVWI PCKCD,MCKMG PROG CHECK CODE QOOO8EA 6A10 1768 1189 BON ACENT* B-YES 
900802 4020 O4ADO DITC3 1073 MVWI PKLAB,MCKM1 MOVE PC TO MESSAGE OOO8EE 4FO6 1130 TRT Ake STOP) STOP AFTER MSG ON 
000808 6808 17A4 1074 MVW HRTA, RO SEE IF DIAGNOSTIC PROGRAM WILL HANDLE OOO8FO 1004 1191 JOFF on$1 B- NO 
00080C 1006 1075 JZ PCK26 IF NOT BR OOO8F2 4724 179A 1192 MVA GRPT,R7 ADR OF PRINT CNTRL 
000808 1076 PCK10 BO U * OOO8F6 4FO9 1193 TBT R7, NINE) IS THIS AN ERROR MSG 
OOO0O80E R740 1077 MVWS (1, QTAR) R7 PLACE PROGRAM CHECK IAR IN XR7 OO0OO08F8 1208 1194 JON on§2 J-YES 
000810 A74A 1078 MVWS 7, (81,0 1) TO RETURN TO DIAGNOSTIC PROGRAM OOO8FA 1195 CONS1 ROU x 
000812 Ad4O 1079 MVWS RO, (R1,QTAR) SET PROGRAM CHECK RET ADDR OOO8FA 806B 1793 0016 1196 C OUT1, (R1,QSVC) SEE IF IN/OUT SVC 
000814 7839 1080 CPCL R1 GET THE CURRENT LEVEL 000S00 186A 1197 JNE Dummy IF NOT RETURN TO CALLER 
000816 5926 0250 1081 SELB R1,PCKLB RETURN TO CALLER 000902 6F08 17F8 1198 MVW SAVE7,R7 RESTORE REGISTER 
00081A 1082 PCK20 EQU * 000906 4F30 1199 TPT (R7 MBIRT) TS THIS AN MDI OUT/IN 
00081A 6F08 17BE 1083 MVW IDCB,R7 ADR OF LAST IDCB 000908 1266 1200 JON DUMMY B-YES IMMEDIATE RETURN 
00081R 0701 1084 ABI ONE,R7 GET DEV ADR OOO90A 1201 CONS2 EQU % 
000820 8708 0357 1085 MVB (Raf DIPR MOVE ADR TO IDCB OOO90A D260 OOOA 1202 MVD R1,QR2) ,R2 RESTORE THESE REGS 
000824 680C 0356 1086 Io PRE UN-PREPARE THE DEVICE OOO0OS0E D460 OOOE 1203 MVD R1,QOR4),R4 RESTORE THESE REGS 
000828 4724 O37C 1087 MVA RTNCV,R7 PREPARE TO CONVERT RTN NUM 000912 p660 0012 1204 MVD Fie ko 7 R6 RESTORE THESE REGS 
00082C 601A 1088 SVC TOE 000916 =p060 0006 1205 MVD R1 RQ) ,RO RESTORE THESE REGS 
00082E 4724 0382 1089 MVA CKPTC,R7 PREPARE TO CONVERT CHECKPOINT 00091A OFOO 1206 MVBI ERO, R7 GO TO LEVEL ZERO TO SET 
000832 601A 1090 SVC HTOE 00091C 6004 1207 SVC CHNGE OVERLAY IAR FOR LEVEL ZERO 
000834 8928 0012 1724 1091 MVW AB QR6) , PRIBU CONVERT PSW O00091E OFO3 1208 MVBI THREE,R7 RETURN TO LEVEL THREE 
00083A 4724 0388 1092 MVA swe rR CONVERT BLOCK 000920 6004 1209 SVC CHNGE TO CONTINUF 
00083E 601A 1093 SVC HTOE 000922 6201 1210 EN SM ENABLE THE SUMMARY MASK 
000840 8928 0000 1724 1094 MVW R1 QTAR) ,PRTBU CONVERT IAR 000924 SO6B 1211 J CHNG1 IT FOR INSTRUCTIONS 
QOO00846 4U724 O38F 1095 MVA ARE 7R7 CONVERT BLOCK V2 13 HK RK KK KR KK kok kk ok kK KOK Rk tok kk kok ok kook ak ok kok ak kok kk ok dog kak @ ok dak dog ak 
OOO84A E01A 1096 SVC HTOE 1214 * *x 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
qeae as THIS ROUTINE IS ENTERED WHEN A CONSOLE INTERUPT OCCURS. 4 ee . NAME CHNGE (SVC 4) Ps 
1217 4 OI IO OO OR OK IO IO iO a tak iok katoi ik ak ak ak ak ai ok 1335 * PURPOSE THIS SVC ALLOWS A DIAGNOSTIC PROGRAM TO RESUME * 
0009 26 1218 CONEP Fou * 1336 * RUNNING FOLLOWING THE COMPLETION OF THE SVC ON * 
000926 6301 1219 DIS SM DISABLE INTERUPTS 1337 * ANY INTERUPT LEVEL HE DESIRES. * 
000928 7859 1220 CPCL R2 GET CURRENT LEVEL 1338 * * 
00092A 6A0D 0282 1221 MVW R2,CONLV SAVE If IN CONSOLE LSB 1339 * METHOD * 
00092E 7878 1222 CPCON R3 READ DATA ENTERED BY CONSOLE 1340 * 
000930 6BOD 0370 1223 MV R3,CNDAT SAVE DATA READ 131 toe ea i i i KKK OR ok OR KOR KK OK OR KKK KE EK 
000934 7B64 FFOO 1224 RBTWI HFFOO, R3 REMOVE UNUSED TS OOO9SEE 1342 CHNG zQU * 
000938 7B06 OOE2 1225 CWI SCHAR, R3 DUMP STORAGE REQUESTED QOOO9EE ET4A 1343 MVWS Ri gery eked GET LEVEL TO RETURN ON 
00093C 6800 147E 1226 BE DSRTN BR/YES OOO9FO 12F2 1344 JN umh BR IF NEG LEVEL 
000940 4020 OO1E 0974 1227 MVA  CN20,CONSI CHANGE ENTRY ADDRESS AND O009F2 F703 1345 CBI NINTL,R7 SEE IF HIGHER THAN HIGHEST 
000946 4020 001C 0250 1228 MVA BCKLB, CONPT LSB POINTER FOR CONSOLE INTERRUPT 1346 * LEVEL INSTALLFD 
00094C 7304 1229 MVW COUNT TO RO OOO0O9F4 11F0 1347 DUMMY IF SO BR 
QOO0OO094E C322 O40D 1230 RBTB RKFO, R SAVE 0009F6 1348 CHNGO a 
000952 C328 036E 1231 MVB 3, AND COMMAND OO0O09F6 690D 0010 1349 — 1, svcp RESTORE SVC POINTER 
000956 3022 1232 SRL Las POSITION COUNT OOOOFA SF46 1350 7, (R81) RETURN WITH LEVEL CHANGED 
000958 F30C 1233 CBI ratte MULTI WORD COMMAND OOO9FC 1351 CHNG1 OU. 
Q0O095A 1£E04 1234 JLGT CN10 BR/YES ~- GO REQUEST DATA OOO09FC 6802 O5B0 1352 B SCHD2 RETURN 
00095C 0801 1235 MVBI ONE, RO SET COUNT TO ONE V35 UH tek i HK ORK KO KR KK kk ok tok KK kk 
Q00095E F30A 1236 CBI. TEN,R3 ONE WORD COMMAND 1355 * 
000960 1£E01 1237 JLGT cNn16 BR/YES - GO REQUEST DATA 1356 * NAME PGMCK (SVC 5) * 
000962 0800 1238 MVBI ZERO, RO SET COUNT TO ZERO 1357 * * 
000964 1239 CN10 zou * 1358 * PURPOSE ALLOWS THE USER TO SET A RETURN ADDRESS IN CASE * 
000964 C028 036F 1240 MVB RO,CNCT SAVE COUNT 1359 * HE CAUSES A PROGRAM CHECK. * 
000968 1013 1241 JZ CN30 BR/ALL DATA ENTERED-VERIFY INPUT 1360 * * 
QO0096A 1242 CN11 Eeu * 1361 * METHOD DCP SAVES THE RETURN ADDRESS IN * 
OOO96A 4424 3814 1243 MVWI ENTCD,RY& SET CONSOLE LEDS TO X'3814! 1362 * PROGRAM HEADER AND IF A_ PROGRAM CHECK IS CAUSED * 
OO096E 1244 CN12 ae * 1363 * BY THIS PROGRAM IN THE Eee CONTROL IS RETURNED * 
0O0096E 7890 1242 ; SECON R4& ENTER MORE DATA 1363 : TO THE DIAGNOSTIC PROGRAM AT fHIS ADDRESS. : 
000970 6802 OSTE 1247 B SCHED RETURN TO SCHEDULER 1366 sR IK RIO RIO ORR sok io gk ite ki ak etek a 
1248 * QOOOA00 1367 PGMK EQU * 
000974 1249 CN20 EQU * OOOA00 8928 0014 17A4 1368 MVW (R1 ORT) eHRTA SAVE PROGRAM CHECK RETURN ADDR 
000974 6301 1250 DIS SH DISABLE INTERUPTS OOOA06 SOE7 1369 DU SVC RETURN 
000976 7878 1251 CPCON R3 READ DATA ENTERED BY CONSOLE 1371 kao OR KOK OK kok dato kk kk kk 
000978 6BO0D 0370 1252 MVW R3,CNDAT SAVE DATA READ 1372 * 
00097C 4724 0372 1253 MVA cneTx,R7 ADDRESS OF CONVERT TABLE 1373 * NAME EXIT (SVC 6) * 
000980 601A 1254 SVC HTOE CONVERT INPUT TO EBCDIC 1374 * * 
000982 4029 0376 0004 1255 AWIL FOUR, CNVTZ INCREMENT OUTPUT ADDRESS 1375 * PURPOSE EXIT CURRENT LEVEL AND NOT BE SCHEDULED FOR A * 
900988 C020 036F 1256 MVB CNCT,RO GET WORD COUNT 1376 * RECALL. * 
00098C OOFF 1257 ABI M1,R0 DECREMENT WORD COUNT 1377 * * 
0009858 S50OEA 1258 J cNnio GO REQUEST DATA 1378 * METHOD * 
000990 1259 CN30 EQU * 1379 * * 
000990 802C O49A 0376 1260 MVB HEXO0,CNVTZ* PLACE END OF DATA CHARACTER 1380 * * 
000996 4020 OO01EF O9A2 1261 MVA CN4O, CONSTI CHANGE ENTRY ADDRESS FOR CONSOLE 1381 2 RR RO OR oO Ko mi ki aio iC dak kaki ak tokio ak 
1262 * INTERRUPT 000A08 1382 EXITA EQU * 
00099C 4424 3813 1263 MVWI VFYCD,R4 SET CONSOLE LEDS TO X*3813! QOOOA08 690D 0010 1383 MVW R1,SVCPT RESET THE POINTER 
000980 5SO0E6 1264 J CN12 VERIFY INPUT QOOAN0C O1E4 1384 ABI M28) R1 ADJUST R1 
QO09A2 1265 CN4QO EQU * QOOOAOE 6201 1385 EN SM ENABLE THE SUMMARY MASK 
Q009A2 6301 1266 DIS SM DISABLE INTERUPTS 000A10 5OF5 1386 J CHNG1 RETURN TO DIAG PROG 
OOO9AL 7878 1267 CPCON R3 READ DATA ENTERED BY CONSOLE 1388 30k foo io OO ii ok ig iio a iigiok ak dak ioidoi aoa a kak 
OOO09A6 4020 OO1TE 0926 1268 MVA CONEP,CONSI RESTORE ENTRY ADDRESS AND 1389 * * 
OOO09AC 4020 001C O026C 1269 MVA CONLB, CONPT LSB POINTER FOR CONSOLE INTERRUPT 1390 * NAME TERM (SVC 7) * 
0O009B2 4224 1724 1270 MVA PRTBU,R2 ADDRESS OF INPUT DATA 1391 * * 
0OO0O09B6 6A0D 0376 1271 MVW R2,CNVTZ RESTORE DATA ADDRESS 1392 * PURPOSE TERMINATE DIAGNOSTIC PROGRAM * 
QOOO09BA OCFF 1272 MVBI M41,R4 SET CONSOLE LEDS TO X'FFFF* 1393 * * 
OO009BC 4724 0234 1273 MVA INDIC,R7 ADR OF DCP IND 1394 * METHOD * 
0009CO 4F49 1274 TBTS Ane CONDV) SET CONSOLE INPUT SWITCH 1395 * * 
0009C2 CB24& 0370 1275 CW WDAT, R3 DATA UNCHANGED 1396 RR RR OO Kio IO OK OR io dak dk i ite ato acai ak 
0009C6 18D1 1276 NE CN11 BR/NO ~- RUBOUT 000A12 1397 TERMA EU * 
0009C8 7890 1277 SECON R4& WRITE TO L QOOOA12 4020 0010 0284 1398 MVA SVCLB, SVCPT RESTORE THE SVC POINTER 
O0OO009CA C825 179C 1278 MVWZ PRITSW,RO ZERO PRINT SWITCH QOOOA18 4724 1800 1399 MVA PID,R@ ADR OF PROGRAM I.D. 
OO009CE OFO2 1279 MVBI TWO,R? SET UP TO INSURE EXIT IS QOOOA1C OT7OE 1400 ABI OpWRD -R DISPL TO OPTION WORD 
0009D0 6004 1280 SVC CHNGE ON LEVEL TWO OOOA1E 4&F80 1401 TBTIR ART Aa rbesw) IS THE TERM PGM ON 
1281 O000A20 1216 1402 JON ERA J-YES 
0009D2 6802 ODE4 1282 B OPCM GO PROCESS COMMAND OOOA22 4020 180A 3800 1403 MVWI RECD1 RTNE INDICATE DCP 
1283 * O0O00A28 CF25 180C 1404 MVWZ CKPT,R7 ZERO THE CHECK POINT 
1285 7K CK OIRO IC OK ORO ok og Ri kK i tok gak ktok kk kok ak ok QOOA2C C720 O24A 1405 MVB FIGRN,R7 TEST CONFIG RUN IND 
1286 * * 000A30 1816 1406 JNZ TERMC J-END OF INITIALIZING 
1287 * NAME DUMMY (RESERVED SVC'S 3/24) * OOOA32 4724 0234 1407 MVA INDIC,R7 ADR OF DCP INDICATORS 
1288 * * QO0OA36 4224 0486 1408 MVA PRPR, R2 IND NO DIAG SPECIFIED 
1289 * PURPOSE RETURNS CONTROL TO PROGRAM AT NSI. * OOOA3A 4324 1800 1409 MVA PID, &3 PROG RESIDENT AREA 
1290 * x OOOA3E 4FO1 1410 TBT aee LOOP) IS LOOP PGM OPT ON 
1291 * METHOD BRANCH TO SVC RETURN. * QOOOA4O 6A00 OE80 1411 BON PPGM B-YES--GO RERUN PGM 
1292 * * OOOA44 4901 1412 TBI gL CKDAD) IS A SPECIFIC DEV REQ 
1293 2% KK KE RIOR ORR I fk do a koto tok dk ok OOOA46 1003 1413 JOFF ERMB J- 
0009D6 1294 DUMMY EQU * OOOA48 4724 03E3 1414 A UDIND,R7 IND ADR 
0009D6 6802 O7D4 1295 B SVCRT SVC RETURN OOOA4YC 4F82 1415 TBIR (R7,TWO) RESET THE CONFIG TABLE LOADED BIT 
1297 eR RRR IK IR RR OR RO ai IR ko kk a kote ok kk ok ak ok ok OOOAYE 1416 TERMB EQU * 
1298 * * OOOAYE 6F03 O61E 1417 BAL UDTID,R7 TRY TO ASSIGN A DEVICE 
1299 * NAME IDLE (SVC 2) * O00O0A52 4900 1418 TBT ats uficRt) IS UNCONDITIONAL RETURN ON 
1300 * * QOOA54 6A00 OEBC 1419 BON pps GO BEGIN THE PGM AGAIN 
1301 * PURPOSE SVC ROUTINE TO ALLOW THE USER TO DELAt A * Q000A58 4920 1420 TBT (Ri PDTAS) WAS AN ADR ASSIGNED 
1302 * PERIOD OF 200 USEC ON A 4&955 PROCESSOR. x OOOA5A 6A00 OEBC 1421 BON ppd YES--GO BEGIN AGAIN 
1303 * THE DELAY WILL BE 600 USEC ON A 4953 PROCESSOR. * OOOA5E 1422 TERMC EQU) * 
1304 * * QOOOA5E 4724 0488 1423 MVA PRPRM,R7 ADR OF PRINT PARAM 
1305 * METHOD GO INTO PROGRAM LOOP FOR THE TIME SPECIFIED ABOVE. * QO0A62 6000 1424 SVC OUT GO PRINT MESSAGE 
1306 * * OOOA64 4724 03E3 1425 MVA UDIND,R7 IND ADR 
1307 OR IO ORI OIC IC IGG IRR ICO IO IIE I a I OOOA68 4F81 1426 TBTR Ane ONE) T/ON END OF TABLE IND 
QOO9ODA 1308 DELAY EQU * OOOA6A 4724 0234 1427 MVA NDiC,R ADR OF DCP INDICATORS 
OOO9DA OF4D 1309 MVBI SIXT4&,R7 COUNT FOR THE DELAY QOOOA6E 4F84 1428 TBTR R7,LODED RESET LOADED BIT 
QOO009DC BFFF 1310 JCT *,R7 DELAY QOOOA70 4FS8C 1429 TBTR R7,TUIDS RESET SAVE T.U BIT 
OOO9DE SOFB 1311 J DUMMY SVC RETURN QOOA72 C225 O24A 1430 MVBZ FIGRN, RESET IND 
13.13 RRR FOR I IR IIA FIO A III IO IRR oi ia cate ae akeak akate ak 000A76 6801 O5B2 1431 BNZ RESTR B-RESTART 
1314 * * QOOOAT7A 4FOO 1432 TBT te AUTO) ARE WE IN AUTO MODE 
1315 * NAME IDLES (SVC 3) * QOOOA7C 6800 OEFE6 1433 BOFF POSA B-YES--GO WITH NEXT PGM 
1316 * * OOOA80 6802 0610 1434 RETRN RETURN TO SCHEDULER 
1317 * PURPOSE SVC ROUTINE TO ALLOW THE USER TO DELAY A * 1436 OOO III IIOR OOK RR doko iC ik kak koto a kek tok a 
1318 * PERIOD OF 500+ USEC ON ANY PROCESSOR TYPE. * 1437 
1319 * * 1438 * NAME OIO ROUTINE (SVC 8/9/10/11/12/13/14/15/16/17/18/21) * 
1320 * METHOD GO INTO PROGRAM LOOP FOR THE TIME SPECIFIED ABOVE. * 1439 * * 
1321 * * 1440 * PURPOSE THE FOLLOWING ROUTINE IS THE ENTRY POINT FOR THE * 
1322 =O OI IO ZO OKI IORI IC OK io a ak i ka aK fk doko ok 1441 * RESET, RID, START, STCSS, PREP, ee et ae RSTAT, * 
OOO09EOQ O0D6 1323 DLYCT DC X*OOD6! COUNT FOR DELAY 1442 * WRITO WRIf'1 cTrL AND Hfo SVC RO NE. 1§ * 
O0009E2 1324 DELY5 EU * 1443 * ROUTINE BUILHS THE IDCB AND SET uP THE DcBe IF * 
OOO09E2 6F08 OIEO 1325 MVW DLYCT,R7 MOVE COUNT FOR THE DELAY T4444 * USED AND THEN ISSUES THE IO INSTRUCTION. * 
QOO9E6 BFFF. 1326 DELY1 JCT *,R7 DELAY 1445 * * 
OOO09E8 50F6 1327 J DUMMY RETURN VIA DUMMY 1446 * METHOD ALL SVC*S ENTER AT THE SAME POINT AND DECODE THE * 
QOO9EA BFFD 1328 JCT DELY1,R7 DELAY 1447 * PARAMETERS THAT ARE IN COMMON AND THEN JUMP AHEAD * 
OOO9EC SOFY 1329 J DUMMY RETURN VIA DUMMY 1448 * TO DO THEIR OWN INDIVIDUAL FUNCTION. * 
1331 2 OR I OR RRO IORI IO IORI FRR dR RK 1449 * * 
1332 * * 1450 = OR iO RIOR OR OR IO IK ak KK tak ao a 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 

OOOA84 T451 GIO EQU) * 1567 * * 

OOOA8Y4 73E7 1452 I R3,R7 CHANGE THE REGS 1568 qo a RK Rk OOK kk OK ok kr OR RO ROR FO AO OR a tO RK OK 

OOOA86 6BOD 17F4 1453 MVW R3,SAV SAVE FOR LATER 000850 1569 CICB1 EQU * 

OOOABA EOKO 1454 MVWS (Rt pi eR hake GFT SVC ADDR + 2 OOOB50 4324 1800 1570 MVA PID, R3 START OF DIAG PGM 

OOOA8C OQOOFE 1455 ABI 2,8 SVC ADDR QOO0O0B54 E2Cu 1571 MVWS AN eee eB) ate DEV TABLE START 

OOOA8E AOCY 1456 MVHS RO, (R3,EIGHT) PLACE SVC ADDR IN DIAGNOSTIC PROGRAM 000B56 0202 1572 ABI WO, R2 BUMP PAST CNTRL CHAR 

OO0O0A90 680D O3DA 1457 MVW RO Lsstc SAVE LAST SVC ISSUED BY DIAG Q000B58 E34A 1573 MVWS Le prs} eh ADR OF ICB 

OOOA94 DS5SEO O004 1458 MVD R3 FO Onn R5 SAVE PARA 3 AND 4 OOOBSA 8424 O3E6 1574 MVA TAB,R SAVE AREA FOF CICB ADR!S 

OOO0A98 C7FO 0000 1459 MVB R3)*,R7 GET DEV ADDR OOOB5E 1575 CICB3 an * 

OOOA9C D3Cc0 1460 MVD R3 /R3 SAVE PARA 1 AND 2 OOOBSE 83B3 0000 1576 A Tie a TS THIS THE DEV TO CONNECT 

OOOAIE 1461 0110 EQU * QOOOB62 1003 1577 SE J-~YES=<-THIS IS: IT 

OOOASE AT74C 1462 MVWS R7,(R1 see SAVE DEV ADDR IN SLOT BUILDING OOOB64 OQ20A 1578 ABI TEN, R2 BUMP TO NEXT DEV 

OOOAAO C360 0016 1463 MVB Ri, ost) GET SVC NUMBER OOO0B66 0402 1579 ABIL TWO, RY BUMP TABLE 

OOOAAY 8368 035A 0018 1464 MVB R3,COM MDC RESET) , (R1, ony ty Be MOVE COMMAND INTO IDCB QOOOB68 5OFA 1580 J CICK3 J-CHECK THE NEXT ONE 

OOOAAA F309 1465 CBI RID, R3 RESET OR READ ID OOOB6A 1581 CICBY EQU 

QOOOAAC 1113 1466 JP orag IF NOT PR OOOBE6A 6B8D 0000 1582 MVW +) SAVE ICB POINTER 

OOOAAE 1467 OIT20 EQU * QOOB6E 4aA54 1583 TBS (Py C1 BT) T/ON THE IND 

OOOAAE EQ42 1468 MVWS R1,QLSR) ,RO GET DIAGNOSTIC PROGRAM LSR 0O00B70 1205 1584 JON Ich6 BR/IF ON BYPASS UPDATE 

OOOABO 4264 0018 1469 MVA R1,QAV1) ,R2 SAVE THE IDCB ADR OOOB72 C220 1796 1585 NVB CIJCNT,R2 PUT THE COUNT IN A REG 

OOOABY 6A0D 17BE 1470 MVW 2,1DCB 000B76 0201 1586 ABI ONE, R2 BUMP COUNT BY ONE 

OOOAB8 684C 0000 1471 TO (R2) ISSUE I/0 OOOB78 C228 1796 1587 MVB R2,CICNT PUT THE COUNT BACK 

OQOABC 7JOOE 1472 CPLSR RO SAVE INDICATORS OOOBIC 1588 CICB6 EQU 

OOOABE 6FO4 OACY 1473 BCC SEVEN,O1I25 BR IF I/O OK OOOB7C OFQ1 1589 MVEBI ONE,R?7 SET ZERO CODE 

QOOOAC2 A440 1474 MVWS R4, (R1,O1 AR) , SET ERROR RET ADDR OOOB7E 3759 1590 SLL ELEVN R7 POSITION FOR 7ERO RESULTS 

OOOACY 1475 O0©25 EQU * OO0OO0B8O E442 1591 MVWS Ee. OLSR) , RU GET LSR 

OOOACY E44D 1476 NVWS CE Ve RANe) ¢ ht 2ND WORD IDCB OOOB82 7C84 1800 1592 RETWI EGZP, R4 RESET NEG AND ZERO INDICATOR 

OOOAC6 6B08 17F4 1477 MVW AV,R3 RESTORE THE REG OOOB86 7781 1593 OW R7,R4 SET INDICATORS FOR RET TO PROGRAM 

OOOACA A&C5 1478 MVHS R4&, (R3,TEN) MOVE INTO PARA LIST QCOOB88 A442 1594 MVWS RU& fF 1, OLSR) SET DIAGNOSTIC PROGRAM LSR 

OOOACC 1479 0127 EQU. #* OOOB8A 5O0A3 1595 J or RETURN 

OOOACC 7803 0010 1480 OWI SMBIT,” RO T/ON SUMMARY MASK 1597 OR i oo ogo aki io oii io CI iii akc dak aioiaicge ac aici ak akok ak 

QOOOADO A042 1481 MVWS RO, (R4 QLSR) SET DIAGNOSTIC PROGRAM LSR 1598 * * 

OOOAD2 1482 O1T28 EQU * 1599 x NAME REQOSD (SVC 22) * 

OOOAD2 5081 1483 J DUMMY SVC RETURN 1600 * * 

OOOAD4 1484 OIT4O0 EQU * 1601 * PURPOSE THIS SVC IS USED PRY THE DISKETTE DIAG PGM * 

OOOADG F315 1485 CBI HIO, R3 HALT I/O SVC 1602 * TO REQUEST USE OF THE DCP DISKETTE. mK 

OOOAD6 1804 1486 JNE OT4 J-NO 1603 * * 

OOOAD8 9068 0360 0018 1487 MVD HLTIO, (R1,Q0AV1) ADR OF IDCB 1604 * MFTHOD CONTROL IS RETURNED TO THE DIAGNOSTIC PROGRAM * 

OOOADE 5OET7 1488 J O1I20 ISSUE THE I/0 1605 * AND THE DIAGNOSTIC PROGRAM MAY USE IT AS A NORMAL * 

OOOAEO 1489 O©T43 EQU * 1606 * DEVICE TO TEST. CYLINDER 1-3 AND 74-76 ARE * 

QOOAEO F30B 1490 CBI STCSS,RS START CYCLE STEAL OR CYCLE 1607 * ALLOCATTED FOR DISKETTE DIAGNOSTIC USE. NO OTHER AREA * 

OOOAE2 1107 1491 JP etre STEAL STATUS-IF NOT BR 1608 * MAY BE MODIFIED BY THE DISKETTE DIAGNOSTIC. * 

OOOAEY 1004 1492 JE ee BR IF START CYCLE STEAL STATUS 1609 * * 

OOOAE6 TVECY FFOO 1493 RBTWI HETO ISOLATE MODIFIER 1610 * CALLING SEQUENCE * 

OOOARA C669 0018 1494 OB R6, (RL OAV 1) SET IN IDCB 1611 * x 

QOOOAEE 1495 OT45 ae 1612 * MVA PARA ADDRESS PARA LIST * 

OOOAEE ASAD 1496 MVWS RS gfRl, ,QAV2) SAVE THE DCB ADR 1613 * Svc pease? SVC TO GAIN CONTROL DCP DISKETTE % 

QOOOAFO S5SODE 1497 J or GO ISSUE I/0 1614 * * 

OOOAF2 1498 O170 EQU * 1615 *PARA DC een BYTE ADDR OF DISKETTE DEV ADDR * 

QOOOAF2 F30C 1499 CBI PREP,R3 SEE IF PREPAPE 1616 * DC A (0) CYLINDER HEAD PRESENTLY AT-SET. * 

OOOAF4Y 1805 1500 JNE O1r80 IF NOT BR 1617 * SET BY DCP UPOW RET. * 

OOOAF6 350E 1501 SRLD ONE,R5 SHIFT I BIT TO XR6 1618 * * 

OOOAFS8 351A 1502 SRL THREE. RS SHIFT OUT UNUSED BITS 1619 OG II III IOI OI IC IORI ICI OR ICICI IIR ICR II IR i ak ik ik ga a kak 

OOOAFA 350D 1503 SLLD ONE, R5 SHIFT I BIT BACK IN XR5 OOORRC 1620 REQD1 EQU * 

OOOAFC A54D 1504 MVWS R5 gi teOhy2) SET IN IDCB OOOB8C 7764 1621 MV W R7,R3 GET ADR OF DISKETTE DEVICE ADDR 

DOOAFE 50D7 1505 J or GO ISSUE IO COOBSE 873B 0000 0233 1622 CR (RID * DKAD SEE IF REQUESTING DCP DISKETTE 

000B00 1506 OIT80 EQU * OOCB94 189E 1623 JNE IF NOT BR 

QOO0O0BO00 F30F 1507 CBr RSTAT,R3 SEE IF READO, READ1 OR RSTAT QOO0O0BS6 88E8 142E 0002 1624 MVW ESO. pies TWO) SET CYL NOW ON IN DIAGNCSTIC PROGRAM 

000B)2 1105 1508 JP Oo1rg90 IF NOT JUMP OOOBSC 4020 0246 ODIC 1625 MVA ST0O1 SET DISKETTE INT TO GO TO DIAG PROG 

000BO0Y4 1509 O185 eye * QOOBA2 5097 1626 J OI2 GO RETURN 

OOOBN& 7DAU FFOO 1510 RBTWIL HFFOO,RS TSOLATE HODIFIER 1628 3c OR ook ooo a iG OR a IG IG amo gai iio dak ak ac ak keg ako ak ak afc ae 

OOOBO08 C569 0018 1511 OB R5 gr, Oavt) SET IN INC 1629 * * 

QOOOBOC 50D0 1512 J or GO ISSUE T70 1630 * NAME RELSD (SVC 23) * 

QOOBOE 1513 OI190 EQU * 1631 * * 

QOOOBOE A54D 1514 MVWS R5,(R1,QAV2) MOVE DATA WORD TO IDCB 1632 * PURPOSF THIS SVC IS USED BY THE DISKETTE DIAGNOSTIC TO * 

000B10 76A4 1515 MVW R6 MOVE MODIFIER TO XR5 1633 -* RELEASE CONTROL OF THE DCP YNISKETTE. IT MUST FOLLOW * 

O000B12 50F8 1516 J or85 PLACE IN IDCB 1634 * A RKEQSD SVC. * 
1518 CO io ok ok occ zac gg lok cok dak ok dal kk iio kak dak aki kak aak ak 3 1635 * METHOD WHEN THE DIAGNOSTIC PROGRAM HAS COMPLETED * 
1519 * * 1636 * TESTING THE DCP DISKETTE, HE MUST RELEASE * 
1329 : NAME RCIB (SVC 19) % ie . CONTROL FOR THE DCP TO USE. : 

* 

1522 * PURPOSE THIS SVC RELEASES THE DIAGNOSTIC PROGRAM FROM ANY * 1639 * CALLING SEQUENCE x 
1523 * RESPONSIBILITY IN HANDLING INTERUPTS FOR THE * 1640 * * 
1524 * DEVICE SPECIFIED BY XR7. * 1641 * MVA PARA ADDR PARA LIST * 
1525 * * 1642 * SVC ErSh’ | SVC TO RELEASE DCP DISKETTE * 
1526 * METHOD THE rg TABLE IS SCANNED FOR THE DEVICE ADDR * 1643 * * 
1527 * IN IF FOUND AND THE DEVICF WAS ASSIGNED TO * 1644 *PARA DC a feet BYTE ADDR OF YPISKETTE DEV ADDR * 
1528 * THE Me icaosac PROGRAM REQUESTING THE RELEASE, A * 1645 * DC A (CYL) CYLINDER DIAGNOSTIC PROGRAM LEFT THE* 
1529 * RESET 766 AND A PREPAPE I/O WITH I BIT OFF IS * 1646 * HEAD AT. * 
1530 * TeeuED O THAT DEVICE AND ANY DCB BLOCKS ARE FREED * 1647 * * 
1531 * THE SLOT IN THE DEVICE TABLE IS ZEROED. * 1648 * THE PARA LIST FOR THE RELSD AND THE REOSD SVC SHOULD BE THE * 
1532 * * 1649 * SAME PARA LIST. THIS IS ADVISABLE IF THE DISKETTE REQUESTING * 
1533 AO iO oi holo gol iii oC OR ia tok galaiick ag a aoa aii ak kate ak ake a ak ac ake ak ak akc ake ak ak 1650 * IS NOT THE DCP DISKETTE. IN THAT CASE THESE TWO SVC ARE NO-OPED * 

OO0OOB14 1534 RCIB1 EQU 2K 1651 * IF THE TWO PARA LIST ARE THE SAME, THE DIAG PROGRAM WILL BE * 

QOOOB14 4324 1800 1535 HVA PID, R3 START OF DIAG PGM 1652 * SETTING ITS OWN CYLINDER LEFT AT. * 

OO0O0B18 E2C4 1536 MVWS crc ,Ra DEV TABLE START 1653 * * 

OOOBIA C4U?0 1796 1537 MVB T RY WAS ANY DEVICES CONNECTED V6 DU Xe eo a aie 2 a oe 2K ah ok 2 2k ae aK 3 ote ke oe ake ak yc 2k ic he a ate ote ae a ok oe ak fc 2 i fe feo ic fc 2k a ac ak kc ok ae akc ak ac a a ee fe ae a ic oe a fe oc afk fe ak ak a ok 

OOOBIE 10D9 1538 JZ J-NO OOOBAY 1655 RELD1 EQU 

000B20 0202 1539 ABIL TR BUMP PAST CNTRL CHAR OOOBAY T3E7 1656 IR CHANGE REGISTERS 

0O00B22 E34A 1540 MVWS (A ORI), 7R3 ADR OF ICB OOOBA6 E4C1 1657 MVWS ns ; TWO) ga? GET WHERE HEAD PRESENTLY AT 

000824 4024 O3E6 1541 MVA DV TA SAVE AREA FOR CICB ADR OOOBA8 833B 0000 0233 1658 CB SEE IF PELEASING DCP DISKETTE 

000B28 1542 RCIB3 EQU * OOOBAE 1891 1659 JNE IF NOT GO RETURN 

Q000B28 C384 1543 as R3 IS THIS THE DEV TO RELEASE OOOBBO 4020 0246 1246 1660 MVA 128" DKINT RESTORE DCP INT ADR 

OOOR2A 1003 1544 SE RCIBG J-YES--THIS IS IT OOOBB6 1661 REL10 EQU * 

QOO00B2C O20A 1545 ABI TEN, Re BUMP TO NEXT DEV QOOOBB6 6COD 142E 1662 MVW R4Y,PCYLA SET CYL HEAD NOW ON 

OOOB2E 0002 1546 ee TWO BUMP TABLE OOOBBA 1663 REL11 EQU % 

000B30 SOFB 1547 Rcrb3 OOOBBA 508B 1664 J 0128 SVC RETURN 

000B 32 1548 RCIBY Bou 166 6 ACCOR ORO GI ICI I GO CII or a rai i oii i ak ac akaioak ak ttc aie ake ake ak ake afk ak 

0OO00B32 4a94 1549 TBTR (2 CICBT) T/ON THE IND 1667 * * 

000B34 1005 1550 JOFF crB5 J-NOT CONNECTED 1668 * NAME HTOE/HTOA (SVC 26/28) * 

000B36 4000 0000 1551 MVWI ZERO, (RO) SAVF ICB POINTER 1669 * * 

OOOB3A O4FF 1552 ABI M1, RG REDUCE COUNT BY ONE 1670 * PURPOSE SVC ROUTINE TO CONVERT A STRING OF HEX BYTES * 

O0O0B3C C4&28 1796 1553 MVB Ru, CICNT PUT THE COUNT BACK 1671 * TO ASCII (HTOA) OR EBCDIC (HTOE) CHARACTERS. * 

OOOB4O 1554 RCIB5 EQU 1672 * * 

OO0O0B4O C328 0357 1555 MVB DIPR MOVE DEVICE ADDR INTO PREPARE 1673 * METHOD HTOA/HTOE- * 

OOOB44 4020 17BE 0356 1556 MVA Beene. IDCB SAVE THE IDCB ADR 1674 * REGISTER 7 POINTS TO THE CONTROL BLOCK. * 

QOOOB4A 680C 0356 1557 Io DIPRE’ RESET I BIT 1675 * * 

OOOB4YE 50C1 1558 J OI28 GO RETURN 1676 * CALLING SEQUENCE * 
15.60 OOK IOI ICO OCI ICICI OR a oi igi ok cok i ica dak eat ak kak ak ak ai ak ac ak 167) * XR7 POINTS TO LABEL *x 
1561 * * 1678 * * 
1562 * NAME CICB (SVC 20) x 1679 * SVC HTOE OR HTOA * 
1563 * x 1680 * * 
1564 * PURPOSE RETURN ZERO RESULT INDICATOR * 1681 *LABEL DC A (COUNT NUMBER OF ae evi HEX DATA * 
1565 * * 1682 * DC A(DADDR DATA ADDRESS *t * 
1566 * METHOD MOVE ZERO TO CONDITION CODE * 1683 * DC A (BADDR BUFFER ADDRES at CII OR EBCDIC) * 
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1684 * * 000C74& T72E7 1801 IR ace R7 CHANGE REGS 
1685 263063 0k tk IRI ROK RIC lok ok ro lok kioiicgo kkk kk go ak ie ke ok ak ate akc ak ak 000C76 D128 17F4 1802 MVD SAV SAVE THE CRITICAL REGS 
OOOBBC 1686 HTE EQU * QOOOC7A 4724 0234 1803 MVA Ripee R7 DCP INDICATORS 
OOOBBC 4724 O448 1687 MVA EBCDI,R7 ADDR OF EBCDIC TABLE OOO0C7E 0201 1804 ABI ONE pd BUMP TO DATA SET NAME 
QOOO0BCO 5002 1688 J HTE1 CONTINUE 000C80 6A0D 17EE 1805 MVW R2 fNDPG ADR OF DATA SET TO FIND 
OO0OBC2 1689 HTA EQU * QO00C84 4FUA 1806 TBTS (Ri TRD) SET INDICATOR 
QOOOBC2 4724 OUOE 1690 MVA ASCII, R7 ADDR OF ASCII TABLE 000C86 0804 1807 MVBI ouk RO NUM OF BYTES 
OOOBC6 1691 HTE1T EQU 000C88 4324 03D5 1808 MVA SVNAM,R3 MOVE NAME TO THIS ADR 
OOOBC6 71A4 1692 MVW RI SAVE CONTENTS Rt OO0O0C8C 1809 IRADO eu * 
OOOBC8 EO4A 1693 MVWS Ri, BRT} -RO ADDR OF CONTROL BLOCK 000C8C 82D4 1810 MVB A Ge a MOVE NAME TO PROPER ADR 
QOOOBCA E600 1694 MVWS ZER JR BYTES OF DATA OO0OO0CB8E BS8FE 1811 JCT RADO,RO MOVE ALL THE NAME 
QOOBCC £101 1695 MVWS RO e ERO) (Rt ADDR OF DATA-SOURCE 000C90 C185 1812 MVBZ (R2) Ri INSURE A O AFTER THE NAME 
QOOOBCE £5002 1696 MVWS RO, FOU \_ RO ADDR OF BUFFER-SINK 000C92 6802 OEF2 1813 B LPO GO LOAD THE DATA SET 
QOOBDO 1697 HTE2 EQU 000C96 1814 IRAD1 eu * 
OOOBDO C350 1698 MVB fens? BYTE OF DATA 000C96 D120 17F4 1815 M SAV,R1 RESTORE REG'*S 
QOOOBD2 72UA 1699 SW ZERO REG OO00C9A 0205 1816 AB FIVE, R2 UPDATE PAST NAME 
QOOBD4 3341 1700 SLL Beene op POSITION DATA 000C9C A548 1817 MVWS RS, (Ri QR5) SAVE CONDITION 
OOOBD6 3225 1701 SLLD FOUR £8? POSITION DATA QOOOC9E 6BOD 1724 1818 MVW R3 RTB NEXT AVAIL STG ADR 
OOO0OBD8 3362 1702 SRL TWELV, R3 POSITION DATA QOOOCA2 4324 1724 1819 MVA PRTBU,R3 ADR OF DATA 
OOOBDA 7748 1703 AW R7,R FIRST CHARACTER ADDR OOOCA6 ODO2 1820 KVBI TWO,R5 BYTES TO MOVE 
OOOBDC 7768 1704 AW R7,R3 SECOND CHARACTER ADDR OOOCAS8 1821 IRAD2 EQU * 
QOOBDE 8204 1705 MVB R2), (RO) + MOVE 1ST CHAR TO BUFFER QO0CA8 8394 1822 MVB {B3) Se (R2) + MOVE THE ADR 
OOOBEO 8304 1706 MVB R3) , (RO) + MOVE 2ND CHAR TO BUFFER OOOCAA BDFE 1823 JCT RAD2,K5 TO THE SAVE AREA 
OOOBE2 BEF6 1707 Jct TE 6 EXT HEX BYTE OOOCAC 0804 1824 MVBI FOUR,RO NUMBER OF BYTES 
OOOBE4Y 7524 1708 MVW R5,P 4 RESTORE CONTENTS R1 OOOCAE 4224 03D5 1825 MVA SVNAM,R2 ADR OF M.D.I. NAME 
OOOBE6 1709 HTERT EQU x OOO0CB2 4324 O0O55F 1826 MVA PRGN1,R3 MOVE NAME TO THIS ADR 
OOOBE6 SOES 1710 J REL11 SVC RETURN Q0O00CB6 1827 IRAD5 zou * 
1712 =k RR OK KO OO I OK IK OK kK lok i tok ak tok kak tiki ak ake ak ake keke ak OOOCB6 82D4 1828 MVB {82) ¢2 (B35) + MOVE NAME TO PROPER ADR 
1713 * x 000CB8 B8FE 1829 JCT RAD5,RO MOVE ALL BYTES 
1714 * NAME ETOH/ATOH/ETOA/ATOE (SVC 25/27/29/30) * OOOCBA 50DB 1830 J ETASQ VC RETURN 
1715 * x 1832 3 ROO OO Og iE Cig i IR aK ai kkk kok io ok ak 
1716 * PURPOSE SVC BODIC TO CONVERT A STRING OF a ee aa * 1833 * * 
1717 * OR EBCDIC MOE CHARACTERS TO HEX * 1834 * NAME IWRIT (SVC 32) * 
1718 * CHARACTERS TO EBCDIC (ATOE) OR EBCIC™ CHRRACTERS * 1835 * * 
1796 . TO ASCII (ETOA). : yee : PURPOSE TO WRITE DATA SETS FOR THE UTILITY PROGRAMS 4 
432) : METHOD REGISTER 7 POINTS TO THE CONTROL BLOCK. * ele . METHOD REGISTER 7 POINTS TO A CONTROL BLOCK. : 
* 
1723 * CALLING SEQUENCE * 1840 2K OOO oo a i OK io RK lo ik kok i kok fag ok 
1724 * XR7 POINTS TO LABEL * QOOCBC 1842 IWRIT Eu * 
1725 * * QOOCBC 690D 17F4 1843 R1,SAV SAVE R1 
1726 * svc ETOH OR ATOH OF ETOA OR ATOE * 000CCO 8938 0014 17EE 1844 MVW R4 BELT Ss aDES ADR OF NAME OF DATA SET TO FIND 
1727 * * 000CC6 4724 0234 1845 MVA NDEIC,R ADR OF DCP INDICATORS 
1728 *LABEL DC A(COUNT NUMBER OF CHARACTERS * OOOCCA 4FU4E 1846 TBTS {et Chrun IND CONFIG TABLE REQ 
1729 * pc AIDADDR DATA ADDRESS-SOURCE * Q00CCC 4020 O3E4 OCDE 1847 MVA WRIO,CNF T RETURN ADR 
1730 * pc A(BADDR BUFFER ADDRESS-SINK * OO0O0CD2 6802 OEF2 1848 B LP06 GO GET THE TABLE 
1731 * *x 000CD6 1849 IWR10 EQU * 
1732 630 OO ako kok io ea OR io I I kia aK a OK aK kk ak ak ica kak ok OO0OO0CD6 6A08 17F4 1850 MVW SAV,R2 GET THE INITIAL POINTER 
OOOBES8 1733 ETH zQU * QOOOCDA E38A 1851 MVWS A220 QR7) ¢R3 ADR OF NEW TABLE 
OOOBE8 4020 O35A 0448 1734 MVA EBCDI, WORK ADDR OF EBCDIC TABLE Qd00CDC 0302 1852 ABI WO, 3 ADR OF NEW TABLE 
OOOBEE 5003 1735 J ETH1 CONTINUE OOOCDE D2c0 1853 MVD (R3S,R2 PUT ADR IN R2 
OOOBFO 1736 ATH EQU * 0O0O0CEO 1854 IWR15 EQU * 
OOOBFO 4020 035A O4OE 1737 MVA ASC 11, WORK ADDR OF ASCII TABLE QOOCEO 000C 1855 ABIL TWELV, RO BUHP TO THE 
OOOBF6 1738 ETH1 EQU OO00CE2 1856 IWR17 EQU * 
QOOBF6 4020 035C O3FC 1739 MVA HEXTA, WORK1 ADDR OF HEX TABLE QOO0CE2 CD10 1857 MVW (RO) +,R5 WORD COUNT OF THIS SECTOR 
QOOBFC 4020 O35E 0010 1740 MVWI SIXTN, WORK2 LENGTH OF TABLE OOOCEY 1858 IWR20 EQU * 
000C02 402c 0234 0001 1741 OWI ONE, INDIC INDICATE CONVERT TO HEX QOOCE4 8A14 1859 MVW 82 ) se (RO) + MOVE IN THE NEW TABLE 
000C08 5013 1742 J ETA 57 CONTINU QOOOCE6 O3FF 1860 ABI 1 WORD COUNT FOR FULL TABLE 
QOOCOA 1743 ETA EQU * QOOCE8 1001 1861 Z TWk30 WHEN WORD COUNT IS EXHAUSTED QUIT 
OOOCOA 4020 O35A O448 1744 MVA EBCDL, WORK ADDR OF EBCDIC TABLE OOOCEA EDFC 1862 JCT + WE20,R5 KEEP IT MOVING 
000C10 4020 035C OWOE 1745 MVA ASCI11, WO RK1 ADDR OF ASCII TABLE QOOCEC 1863 IWR30 HOU * 
000C16 5006 1746 J TA1 CONTINUE QOOOCEC 6F03 11C8 1864 BAL DSKWR,R7 GO WRITE THIS SECTOR 
000C18 1747 ATE EQU OOOCFO 75A7 1865 R R5,R5 ANY ERRORS 
000C18 4020 035A O4ODE 1748 MVA ASC11, WORK ADDR OF ASCII TABLE OOOCF2 6801 OF6C 1866 BNZ LP49 B-IF ERROR~-TO PRINT MSG 
OOO0C1E 4020 035C 0448 1749 MVA EBCDI, WORK1 ADDR OF EBCDIC TABLE QOOOCF6 7367 1867 IR R3,R3 TEST FOR ZERO BYTE COUNT 
000C24 1750 ETA1 EQU QOOCF8 1005 1868 JZ TwWR4O J-BYTE COUNT EXHAUSTED 
Q000C24 4020 O35E 0039 1751 MVWI FIFT? WORK2 LENGTH OF TABLE QOOOCFA D4&60 0018 1869 MVD fhe QAI) 80 PREPARE 
O00C2ZA 402D 0234 0001 1752 RBTWI ONE, tfhpic INDICATE CONVERT TO NON-HEX QOOCFE 0401 1870 ABIL NE,R4 TO GET THE 
000C 30 1753 ETA2 EQU + 000D00 O5FF 1871 ABIL 1,85 NEXT SECTOR 
000C30 71A4 1754 MVW R1 SAVE CONTENTS R1 000D02 1009 1872 JZ TWR4EO J-TO END IF THATS ALL 
000C32 EO4WA 1755 MVWS Ri oR Rhee ADDR OF CONTROL BLOCK OOODO04 D468 0018 1873 MVD R4, (R1 gAv1) SAVE THE NEW COMPUTATIONS 
000C34 E600 1756 MVWS RO,Z ) “Be BYTES OF DATA 000D08 6F03 11C2 1874 BAL DSKRD,& GO GET THE NEXT SECTOR 
000C36 £101 1757 MVWS RO,T WO) ADDR OF DATA-SOURCE OO0OODO0C 75A7 1875 IR R5,R5 ANY PROBLEMS 
000C38 E002 1758 MVWS JRO, FOU S, ho ADDR OF BUFFER-SINK OOODOE 6801 OFE6C 1876 BNZ Lphg B-YES--GO PRINT THE MSG 
OOO0C3A 1759 ETA3 EQU 000D12 0002 1877 ABI TWO, RO BUMP POINTER 
0OOO0C3A 4424 0100 1760 MVWI THOS6,R4 SET REGISTER O0O0D14 50E6 1878 J IWRI7 GO REWRITE THIS SECTOR 
OO00C3E 1761 ETA4Y EQU * 000D16 1879 IWR4O E90 * 
OOOC3E 6B08 035A 1762 MVW WORK, R3 CONVERT-FROM TABLE 000D16 6908 17F4 1880 MVW SAV,R1 RESTORE R1 
000C42 6A08 035C 1763 MVW WORKI, R2 TO TABLE OOODTA SOAB 1881 ETAS SVC RETURN 
O00C46 6F08 O035F 1764 MVW WORK2, R7 LENGTH OF TABLE 1883 3 OR oR OO om kg lig OK IORI IGOR i GK IK oR i kak ak ak kak kak ak 
OOOC4A 1765 ETA5 EQU 1884 * 
QOOO0C4A 8353 1766 CB rhe (R1) 9 Is a ue THE CHARACTER 1885 * NAME STRIT * 
000C4C 1002 1767 JE S/GO USE If 1886 * * 
QOOOCKHE 0201 1768 ABI ONE NOvS Er UP FOR NEXT 1887 * PURPOSE THIS ROUTINE HANDLES INTERUPTS FROM ALL DEVICES * 
000C50 BFFC 1769 JCT ETaS, 27 TRY NEXT 1888 * NOT ASSIGNED TO THE DCP AND PASSES * 
000C52 ' 1770 ETA6 EQU 1889 * CONTROL TO THE PROGRAM ASSIGNED THAT DEVICE. * 
000C52 C486 1771 A 482) R4 ADD IN CONVERTED DATA 1890 * * 
000C54 0101 1772 ABI R14 INCREMENT DATA ADDRESS 1891 * METHOD XR7 AND THE INDICATORS SET BY THE INTERUPT ARE * 
000C56 402B 0234 0001 1773 TWI ONE, INDIC 7 Ce ERI NG TO HEX 1892 * PASSED TO THE DIAGNOSTIC PROGRAM WHICH THE DEVICE * 
000C5C 1007 1774 JZ ETA? NOT 1893 * INTERUPTING IS ASSIGNED TO. IF IT IS A STRAY * 
O0OO00CSE 7C07 0100 1775 TWI TWO56,R4 06 EFT HALF BYTE 1894 * INTERUPT, THE DEVICE IS RESET. CONTROL IS THEN * 
000C62 1004 1776 JZ ETA7 O/PRIGHT HALF BYTE 1895 * RETURNED TO THE DIAGNOSTIC PROGRAM INTERODPTED. * 
0O00C64 3421 1777 SLL FOUR, R4 SHIFT DATA 1896 * * 
000C66 BEEB 1778 ICT ETAUW,R6 NEXT BYTE 1897 ko oko IO I IK IO IO IO IIS IORI IK IORI OK aK kok ak 
000C68 C418 1779 MVB RY RO) + SAVE LEFT HALF BYTE OOODIC 1898 STO1T EQU * 
900C5A 5002 1780 J ETA FINISHED 000D1C 700E 1899 CPLSR RO GET INDICATORS SET BY INT 
000C6C 1781 ETA7 EQU ni OOODIE 6301 1900 DIS SM DISABLE INTEROPTS 
000C6C C418 1782 MVB fF? ia SAVE CONVERTED DATA 000D20 4124 O02BC 1901 MVA STLSB,R1 ADDR OF A QUE BLOCK TO USE TO 
OOO0C6E BEES 1783 JCT Erk NEXT BYTE 1902 * BUILD LSB TO BR TO DIAGNOSTIC 
000C70 1784 ETA8 EQU 1903 * PROGRAM WITH 
000C70 7524 1785 MVW R5,R1 RESTORE CONTENTS R1 O00D24 AT4A 1904 MVWS = R7 ie QR7) SAVE ISB AND DEVICE ADDR 
000C72 1786 ETA9 EQU. * 000D26 C022 0?D8 1905 RBTB HEXFF,& RESET LOW ORDER 8 BITS OF LSR 
000C72 50A3 1787 J REL11 SVC RETURN 1906 * BUILDING 
1789 RIOR ORR OO OR ORIG Ro OOK OR OK I II aK rok fok kokakaak akoakote sok ok OOOD2A 4324 1800 1907 MVA PID, PROG START 
1790 * OOOD2E E3C4 1908 MVS R3, :ADvep) R3 DEV TABLE START 
1791 * NAME IREAD (SVC 31) 5 000D30 C5SEQO 0001 1909 MVB R3, f GET THE NUMBER OF DEVICES 
1792 * * 0O00D34 0302 1910 ABI tO. oe BUMP PAST CNTRL 
1793 * PURPOSE TO READ THE CONFIGURATION TABLE INTO STG * 000D36 4224 O03E6 1911 MVA pvTAB SAVED CICB POINTERS 
1794 * OR TO LOAD A MAP FOR THE MDI SUPERVISOR. * OOOD3A 4815 1912 TBT {83 PASTR) IS THE PASS STRAY BIT ON 
1795 * * 000D3C 122A 1913 JON 726 J-YES 
1796 * METHOD REGISTER 7 POINTS TO A CONTROL BLOCK. * QOOD3E 1914 STO5 Ee * 
1797 * * OOOD3E 7384 1915 MVW R3 SAVE R3 
1798 2K IORI IORI OO IOI IOI IOI IO Ia aK ik ok kk kk lotok ok ak OO0O0D40 cT7c4 1916 CB RS) 787 IS THIS THE DEVICE 
000C74 1800 IREAD EQU * 000D42 1023 1917 JE T2 J-YES 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OOOD44 0202 1918 ABI TWO,R2 BUMP CICB POINTER 2035 2 IG II IG IGOR I AO oi kak a a ik kak ako ak 
OO0OD46 030A 1919 ABI TEN, R3 BUMP TABLE POINTER 2036 * * 
QOO00D48 4C11 1920 TBT (Ray SEVTN) WAS THE CHAIN BIT ON 2037 * NAME YSRIN * 
QOOOD4A 12F9 1921 JON B/YES DONT DECREMENT THE COUNT 2038 * * 
OOOD4C’ BDFS8 1922 JCT ST05,R5 J-CHECK THEM ALL 2039 * PURPOSE RESPOND WITH YES TO PROBLEM PROGRAM * 
OOOD4E 1923 STOSA at * 2040 * * 
QOOODY4E C520 03D9 1924 MVB STFLG,RS5 IS THE STRAY INT IN PROC 2041 * METHOD THE EBCDIC EQUAVELIENT OF 'Y' TS PASSED * 
000D52 1818 1925 JNZ ST 10 J-YES--IGNORE THIS ONE 2042 * TO THE PRORLEM PROGRAM AS A RESPONCE X'E8'. * 
000D54 6DO8 179C 1926 MVW PRTSW,R5 IS THE PRINTER BUSY 2043 * * 
000D58 1815 1927 JNZ ee J-~YES--IGNORE THIS ONE 2044 * CALLING SEQUENCE * 
OOOD5A C728 0378 1928 MVB DEVICE ADR TO RESET 2045 * * 
QOOODS5E 8928 0014 O3BE 1929 MVW (Bh ORT oO GET THE ISB 2046 * 1 * 
QOO0OD64 EQUA 1930 MVWS Re SAVE THE ISB 2047 * * 
QO0D66 4724 039A 1931 MVA ONEEE, CONTROL BLOCK FOR CONVERT 2048 * WHERE 1 IS THE YES COMMAND CODE x 
OOOD6A 601A 1932 SVC OE GO CONVERT 2049 * * 
OOOD6C 8028 02D8 03D9 19 33 MVB HEXFE, STFLG T/ON INDICATOR 2050 3 GR a CCCI CIO ORG ICI I ICR a dak kak i katai aolak kc ak 
O000D72 4724 0556 1934 MVA UNEIO,R7 GET THE MSG ADR OOOEOO 2051 YSRTN EQU * 
O000D76 6000 1935 SVC OUT GO OUT PUT THF MSG QOOEOO S80A0 O4GA 2052 MVB YSRES, (R2) SET RESPONCE TO Cty? 
000D78 680C O37A 1936 IO SIRST IDCB-ISSUE RESET QOOEO4 5SO0F8 2053 J GO TO PROGRAM RESPONCE 
OOOD7C 4524 0160 1937 MVWI THR52,R5 NUM OF SVC IDLE'S 2055 3O a Oa a a a GIG IG IO OR I I IK aC ak ak ak kok ak ak ak ak ak kak ok 
000D80 1938 STO6 EQU * 2056 * * 
000D80 6002 1939 SVC IDLE WAIT FOR THE RESET TO SETTLE 2057 * NAME AMRTN * 
000D82 BDFE 1940 JCT STO6,R5 2058 * * 
O00D84 1941 ST10 EQU si 2059 > PURPOSE SET ON AUTOMATIC MODE * 
OOOD84 6201 1942 EN SM ENABLE INTERUPTS 2060 * * 
000D86 6802 O5BO 1943 B oe RETURN 2061 * METHOD THE AUTOMATIC MODE SWITCH IS TURNED * 
OOOD8A 1944 ST20 EQU 2062 * ON IN THE DCP INDICATORS. * 
QOOD8A 4810 1945 TBT £8365 SIXTNW) WAS IT ASSIGNED 2063 * * 
OO0OOD8C 10E0 1946 JOFF J~NO STRAY 2064 * CALLING SEQUENCE * 
OOOD8E 4B14 1947 TBT i708 CICBT) WAS IT CONNECTED 2065 * * 
000D90 10DE 1948 JOFF TO5A J-NO STRAY 2066 * 2 * 
000D92 1949 ST25 EQU 2067 * * 
Q000D92 7801 OO0DO 1950 AWI TWOO SET IN PROCESS FLAG BIT 2068 * WHERE 2 IS THE AUTOMATIC MODE COMMAND CODE * 
000D96 A042 1951 MVWS RO (Rae OLSR) SAVE LSR BUILT 2069 x x 
000D98 CA80 1952 MVW (R23), RB UPDATE TO CICB 2070 33 a CO IC COC OR OI aici ik igi i io ig Giok dete akokk tet ak 
OO0O0D9A 8868 O3DA 0012 1953 MVW a8 ve, web |? 7 QR6) TO THIS DEV IN DIAGNOSTIC PROB XR6 OOQE06 2071 AMRTN EQU ~ 
OOODAO 306A 1954 SRL TH ISOLATE INT COND CODE QOOOEQ6 4724 0234 2072 MVA INDIC ADR OF DCP IND 
OOODA2 1955 ST30 EQU * QOOOEOA 4FO4Y 2073 TBT ay LODED) TEST PGM LOADED BIT 
OOODA2 £781 1956 MVWS (R2,O0AG) ,R7 GET DIAGNOSTIC PROGRAM RET ADDR IF QOOEOC 1260 2074 JON 06 RETURN 
1957 * COND CODE EQUALS EXPECTED QOOOEOE 4F80 2075 TBTR {RT AUTO) RESET BIT TO AUTO MODE 
1958 % COND CODE Q000E10 5007 2076 RETURN 
OOODAY COA4 0007 1959 CB {2 OCC) , RO COND CODF SAME AS EXPECTED 2078 7% 4 OR IC RO OI IO CC GI RIC OK Joi ak ak i ak kat koto ak 
OOODA8 1001 1960 JE T46 IF SO BR 2079 * * 
OOODAA £782 1961 MVWS (R2,OAR),R7 GET ERROR RETURN ADDR 2080 * NAME MMRTN * 
QOODAC 1962 ST4O0 EQU * 2081 * * 
OOODAC A740 1963 MVWS R77, (R1,QTAR) SET RETURN ADDR OF PROGRAM 2082 * PURPOSE SET ON MANUAL MODE * 
OOODAE 7879 1964 CPCL R3 GET LEVEL INTERUPTED ON 2083 * * 
QOODBO A348 1965 MVWS R3, (R1,QR5) SAVE THE INT LEVEL 2084 * METHOD THE MANUAL MODE SWITCH IS TURNED * 
OOODB2 SB46 1966 SELB R f GO TO DIAGNOSTIC PROGRAM HANDLING INT 2085 * ON IN THE DCP INDICATORS. * 
- 19.68 eR a TCG IOI ISCO IO IGG IGG GIO IO GIR AIO i CK 2086 * * 
1969 * * 2087 * CALLING SEQUENCE * 
1970 * NAME OPCMD * 2088 * * 
1971 * * 2089 * 3 * 
1972 * PURPOSE DECODE THF OPERATOR peouee e AND BRANCH TO THE = 2090 * * 
Doan : PROPER ROUTINE TO HANDLE IT. be a : WHERE 3 IS THE MANUAL MODE COMMAND CODE * 
* 
1975 * METHOD R2 = ADDRESS OF THF BUFFER PASSED BY THE INPUT * 2093 3 eo a Ro Roa ok kk dai gO IG EI OR ZR I Ia aC a akc ak 
1976 * SERVICE ROUTINE. * QO00E12 2094 MMRTN EQU * 
1977 * * QOOO0OE12 4724 0234 2095 MVA INDIC ADR OF DCP IND 
Ne WS i: ON BRANCHING TO THE SPECIFIED ROUTINE * QOO0E16 4FO4 2096 TBT Ce LODED) TEST PGM LOADED BIT 
1979. + R2 WILL POINT TO THE 1ST NON-SPACE CHARACTER * QOOOE18 125A 2097 JON 06 RETURN 
1980 * PAST THE OPTION WORD. * QOOE1A 4F4O0 2098 TBTS (87, Ag70) SET BIT TO MANUAL MODE 
1981 * * QQOOE1C 4F88 2099 TBTR R7,NXTV RESET NEXT ENTRY BIT IF ON 
1982 3 CCI I tok lO OK A CK A IO dick oiok kok ak QOOE1E 4FS8D 2100 TBTR R7,LDIAG RESET LOOP DIAGNOSTIC PACKAGE 
OOODBY 1983 OPCMD EQU * 000E20 2101 MRIN1 QU * 
QOOODB4 821R 0481 1984 CB Sachb" , EBCEK FIND 1ST NON-SPACE CHAR AFTER Q000E20 4424 3800 2102 MVWI RECD1,R4 DCP ENTER CODE 
QOOODB8 10FD 1985 JE LOOP TILL FOUND QOO0E24 7890 2103 SECON R4& WRITE TO THE LIGHTS 
OOODBA O2FF 1986 ABI GET ADDR NON-SPACE CHAR QOOO0E26 6802 0610 2104 B RETRN PRINT ENTER MESSAGE 
OOODBC C180 1987 MVB a shat COMMAND 2106 27 OR IO IO ICI OIG dor ick ag lok atk kage ak 
OOODBE FI1E2 1988 CBI gn DUMP STORAGE REQUESTED 2107 * * 
QOO0DCO 6800 147E 1989 BE BR/YES 2108 * NAME ULOOP * 
OOODCH 0810 1990 MVBI STXTN NUMBER OF COMMANDS 2109 * * 
OO00DC6& 0900 1991 MVBI ZERO, Re ZERO REG FOR POINTER 2110 * PURPOSE SET ON LOOP DIAGNOSTIC PACKAGE * 
000DC8 1992 OPCM1 EQU 2111 * * 
QOODC8 81A3 0448 1993 CB (21 EBCDI) , (R2) FIND EBCDIC COMMAND 2112 * METHOD THE LOOP DIAG PACKAGE IS TURNED * 
O000DCC 1003 1994 JE Opch2 BR/THIS IS THE ONE 2113 * ON IN THE DCP INDICATORS. * 
QOODCE 0101 1995 ABI ONE,R1 INCREMENT POINTER 2114 * * 
OOODDO BS8FB 1996 JCT OPCN1,R0 CHECK THE NEXT ONE 2115 * CALLING SEQUENCE * 
OOO0DD2 507D 1997 J LPOO INV REQ MESSAGE 2116 * * 
OOODD4 1298 OPCM2 EQU * 2Z2AAT % 4 * 
OOODD4 8128 O3FC 036E 1999 MVB AB Te HENEAY e CNN GET THE COMMAND IN HEX 2118 * * 
OOODDA 0201 2000 ABI NE,R2 STEP PAST THE COMMAND 2119 * WHERE 4 IS THE LOOP DIAGNOSTIC PACKAGE INDICATOR * 
QOODDC 2001 OPCM3 EQU * 2120 * * 
OOODDC 821B 0481 2002 CB (R2) +,EBCBK FIND 1ST NON-SPACE CHAR AFTER 2127 Jeo a oak oi icici a co CCC i gO tai GOR amg i aa a ak ok dokak at ak abot aot ak 
OOODEO 10FD 2003 JE OPCM3 LOOP TILL FOUND QOOOE2A 2122 ULOOP a * 
QOODE2 O2FF 2004 ABI M1,R2 GET ADDR NON-SPACE CHAR QOOE2ZA 4724 0234 2123 MVA IN ADR OF DCP IND 
OOODEY 2005 OPCM EQU * OOOE2E 4F4D 2124 TBTS RT TUBTA AG) SET BIT TO LOOP DIAG PACKAGE 
OOODE4 4324 1800 2006 MVA PID, R3 ADDRESS OF PROGRAM START 000E30 SOFT 2125 J PRINT ENTER 
OOODE8 C120 036E 2007 MVB CMND,B1 GET THE COMMAND 2127 =O OR I II RIOR OO ICI IK doi toi IIR aC ok ik ak 
QOOODEC 3109 2008 SLL ONE, £1 MULTIPLY BY TWO 2128 * * 
2009 * 2129 NAME ACRTN * 
OOODEE 6832 02DC 2010 E (R1,CMDTB) * BRANCH TO PROPER ROUTINE 2130 * * 
2011 * 2131 * PURPOSE RESET THE ALTERNATE ASSIGNMENT * 
20 V3 RE A HR HR eH KK OK 2 OK OK I I CK a a kk kt kek Ra Oi i ok ok tk ack kak 2132 * x 
2014 * * 2133 * METHOD THE ALTERNATE CONSOLE SWITCH IS TURNED * 
2015 * NAME NORTN * 2134 * OFF. THE STOP ON MESSAGE IS TURNED ON. * 
2016 * * 2135 * AND AN UN-PREPARE IS ISSUED TO THE DEVICE. * 
2017 * PURPOSE RESPOND WITH NO TO PRORLEM PROGRAM * 2136 * * 
2018 * * 2137 * CALLING SEQUENCE * 
2019 * METHOD THE EBCDIC EQUAVELIENT OF 'N' IS PASSED * 2138 * * 
2020 * TO THE PPOPLEM PROGRAM AS A RESPONCE X'"D5!. * 2139 * 5 * 
2021 * * 2140 * * 
2033 7 CALLING SEQUENCE : otis : WHERE 5 IS THE ALTERNATE CONSOLE COMMAND CODE * 
* 
2024 * 0 * 2743 2a RR ORO ORIG IIR IOI IO IO IO IOI IRI aK aK 
2025 * * V00E32 2144 ACRTN EQU * 
2026 * WHERE 0 IS THE NO COMMAND CODE * QO0E32 C320 0240 2145 MVB OPADR, R3 ADR OF ALT CONSOLE 
2027 * * Q00E36 C328 0357 2146 MVB R3,DIPR PUT IT IN THE UN-PREP IDCB 
2028 2 OR IOI IO IO ICI IG II IO I I IOI IIR IIR OR oka ak ak OOOFE3A CB25 179C 2147 MVWZ PR&SW,R3 POSITION FOR WORD ADR 
QOOODF2 2029 NORTN EQU * QOOE3E 4030 178E 0378 2148 MVA STRIT, ACVTR* CHANGE ae VECTOR 
QOOODF2 80A0 OUSF 2030 MVB NORES, (R2) SET RESPONCE TO C'N' OOOE44 680C 0356 2149 IO DIPRE’ ISSUE TH Ze 
OOODF6 2031 NORT1 Feu * OOOEY8 4724 0234 2150 MVA INDIC ADR OF DEP NDICATORS 
QOOODF6 80A8 O49A 0001 2032 MVB HEXOO, (R2, ONE) SET IN TERMINATE CHARACTER OOOE4C 4F87 2151 TRTR R7, aLTDV) RESET ALT DEV IND 
QOOODFC 6892 107C 2033 B REPGM GO TO PROGRAM RESPONCE OOOEYE 4FU46 2152 TBTS R7, STOP) T/ON STOP ON MSG BIT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
QOOE5O0 SOE7 2153 J MRTN1 RETURN OOOE84 4020 0010 0284 2272 MVA a ore? SVCPT RESET LSB POINTER 
2155 oR OK ok OR RO RIOR ROR IO ICR IOIOIOIOIOI ROK IO IOI RIOR IR RIOR a IOI OK IO aK a ii ok ok OOOES8A 4724 0234 2273 MVA INDIC,R7 ADR OF DCP INDICATORS 
2156 * * OOOE8E S80A3 O4SA 2274 CB HEXOO! {R2) IS THIS A REQ FOR A DIAG 
2157 * NAME RSPGM * QOOO0E92 1005 2275 JE BPPA J-NO--GET THE FIRST ONE 
2158 * * OOOE94 8028 O02D8 O03E2 2276 MVB HEXFF,INTLD T/ON IND TO TAKE THIS ONE 
2159 * PURPOSE ALLOW THE OPERATOR TO RESUME A DIAGNOSTIC PROGRAM * OOOE9A 4FOO 2277 TBI R7, AUTO) ARE WE IN AUTO MODE 
2160 * THAT HAS BEEN HALTED. * OOOE9C 1018 2278 JOFF Pod J-~YES-RETURN 
2161 * *x OOOEQE 2279 BPPA zQU * 
2162 * METHOD *x OOOES9E 4FO4 2280 TBT {Ras LODED) IS A PGM LOADED 
2163 * x OOOEAO 1019 2281 JOFF B-NO--GO LOAD 
2164 * CALLING SEQUENCE * OOOEA2 80A3 OUSA 2282 CB HEXOO, (R2) WAS A DIAGNOSTIC SPECIFIED 
2165 * * OOOFA6 1007 2283 JE BPP! J-NO--BEGIN THE ONE LOADED 
2166 * 6 * OOOFA8 4024 O55F 2284 MVA PRGN1, RO ADR FOR PROG NAME 
2167 * * QOOOEAC 7284 2285 MVW a R4 MOVE POINTER TO R4& 
2168 * WHERE 6 IS THE RESUME PROGRAM COMMAND CODE * OOOEAE ODO 2286 MVBI SOR, R5 BYTE COUNT 
2169 * * OOOEBO 2287 BPPG1 Eyd 
2170 * * OOOEBO 8417 2288 Cc (4) +, (RO)* COMPARE THE NAMES 
2171 oO lok oo ROR IG ok oko ok ok koko ii dado gf I RR aR kk kok fog ok OOOEB2 1810 2289 JNE P01 GO GET PGM 
O00E52 2172 RSPGM EQu * OOOEB4Y BDFD 2290 JCT BPPG1,R5 
QOOE52 6908 0010 2173 MVW SVCPT ,R1 RESET Ra TO POINT OOOEB6 2291 BPP! Eee * 
QOOE56 O1EY 2174 ABI 28, R4 AT SVC LSB OOOEB6 4724 0512 2292 MVA PARL5S,R7 STARTED MESSAGE 
OO0F58 4724 0234 2175 MVA TNDfe JR ADR FOR” DCP INDICATORS OOOEBA 6000 2293 SVC OUT PRINT MESSAGE 
QOOE5C 4FO4 2176 TBT fBiat LOBED) IS PGM LOADED IND ON QOOEBC 2294 BPP2 Eee . 
QOOOE5E 1010 2177 JOFF B- NO-~-PRINT MSG OOOEBC 6201 2295 E SM ENABLE THE SUMMARY MASK 
QOOOE60 6802 O7D4 2178 B ent B-N ETORN BY SVC OOOEBE OFO3 2296 MVBI THREE,R7 SET UP FOR LEVEL 3 
2180 FES ISG GGG OE GGG IG GRIGG BGG GIO aI O IOI Gk QOOOECO 6004 2297 SVC CHNGE CHANGE LEVEL 
2181 * x OOOEC2 6872 0006 2298 B (R3,HPSA) * START THE DIAGNOSTIC PROGRAM 
2182 * NAME SMRIN * 2300 Fe OO I GG oa a a OO IO TO I GIORGI IOI ik ik 4ok ak 
2183 * * 2301 * 
2184 * PURPOSE STOP AFTER EACH MESSAGE DISPLAYED ON THE * 2302 * NAME LPPGM * 
2185 * PROGRAMMER'S CONSOLE. * 2303 * * 
2186 * * 2304 * PURPOSE THIS ROUTINE LOADS A PROGRAM INTO STG. x 
2187 * METHOD THE STOP AFTER EACH MESSAGE SWITCH IS TURNED * 2305 * IT DOES NOT START THE PROGRAM * 
2188 * ON IN THE DCP INDICATORS. * 2306 * * 
2189 * * 2307 * METHOD THE VTOC IS SEARCHED FOR THE NAME KEYED IN BY * 
2190 * CALLING SEQUENCE * 2308 * THE OPERATOR AND WHEN FOUND IT IS LOADED INTO * 
2191 * * 2309 * THE LOCATION SPECIFIED IN THE HEADER. * 
2192 * 7 * 2310 * * 
2193 * * 2311 * CALLING SEQUENCE * 
2194 * WHERE 7 j$xmS THE STOP AFTER MESSAGE COMMAND CODE * 2312 * * 
2195 * * 2313 * C ‘'NAME® * 
2196 ea OIG III GK FO III IO I I a aI I IK ak ak ak ofc a ak ak ai akc ak ak kc 2314 * * 
OOOE64 2197 SMRTN EeU * 2315 * WHERE C IS THE COMMAND TO LOAD A PROGRAM * 
OOOE64 “724 0234 2198 MVA INDIC ADR OF DCP IND 2316 * NAME IS THE FOUR HEX DIGIT PROGRAM ID. * 
OOOE68 4FU6 2199 TBTS R7 C#OD) SET BIT TO STOP AFTER MSG 2317 * * 
OOOF6A SODA 2200 J RETURN 2318 ac a a a lala ell 
2202 OKO Ok lok kolo Gg RR I a tO ROR gO Ro IK a kai kaki ok ake afc ok OOOEC6 2319 LPPGM a 
2203 * * OOOEC6 4724 0234 2320 INDIC DCP INDICATORS 
2204 * NAME SORTN * OOOECA 4“FOO 2321 TBT (R7,A Keo) IN AUTO MODE? 
2205 * * OOOECC 1203 2322 JON LPO B-NO--0. K. 
2206 * PURPOSE RESET STOP AFTER EACH MESSAGE DISPLAYED ON THE * OOOECE 2323 LP0O £EQU * 
2207 * PROGRAMMER'S CONSOLE. * QOOOECE 4724 OUEB 2324 MVA INCMD,R7 INV REQ MSG ADR 
2208 * * OOOED2 505F 2325 J LP55 RETURN TO SCHED 
2209 * HETHOD THE STOP AFTER EACH HESSAGE SWITCH IS TURNED * QOOEDY 2326 LPO1 EQU * 
2210 * OFF IN THE DCP INDICATORS. %* QOOOED4Y 4024 O55F 2327 MVA PRGN1,R0 ADR FOR PROG NAHE 
2211 * * OOOEDS8 OFOS5 2328 MV BI FIVE, &7 BYTE COUNT 
2212 * CALLING SEQUENCE * OOOEDA 2329 LPO5S EQU * 
2213 * * OOOEDA 8214 2330 MVB SB) ts (RO) + PUT ee NAME IN SAVE AREA 
2214 * 8 * OOOEDC 1001 2331 JZ PO005 J-ON 
2215 * * OOOEDE BFFD 2332 JCT LPO5,R7 CONTINUE °FOR TELL THE NAME 
2216 * WHERE 8 IS THE STOP AFTER MESSAGE OFF COMMAND CODE * OOOEEO 2333 LPOOS5 EQu * 
2217 * * QOOEEO OOFF 2334 ABIL M1,R0 BACK ONE BYT 
2218 See eee ee TRON eT e Rete CEE CL SRE TEAEEN SETS EE TERS U ECE OE SE ESSE AEE AES QOOOEE2 8020 0481 2335 MVB EBCBK, (RO) REPLACE HEXOO WITH BLANK 
QOO0E6C 2219 SORTN zou OOOEE6 2336 LPOSA EQU * 
QOOF6C 4724 0234 2220 MVA INDIC ADR OF DCP IND QOOOEF6 4020 17EE O55F 2337 MVA PRGN1,FNDPG ADR OF DATA SET NAME TO FIND 
QOO0E7O 4F86 2221 TBTR R7 Sanp) RESET STOP IND OOOEEC 4524 03E3 2338 MVA UDIND,R5 ADR OF IND 
QOO0E72 50D6 2222 J RETURN OOOEFO 4)pD40 2339 TBTS (R5, ZERO) T/ON IND TO LOAD CONFIG TABLE 
2224 ako ok Ok CK OK kk ko io iG i iki tok koko kia kk aakok kak ok ite kk 2k kek ak ok kc ie ate ak ok OOOEF2 2340 LPO06 Een * 
2225 * * QOOOEF2 4F88 2341 TETR nae NXTVT) RESET NEXT BIT 
2226 .* NAME TPPGM * OOOEF4 4124 0250 2342 MVA CKELB,R1 QUE BLOCK ADR 
2227 * x OOOEF8 6EOD 1724 2343 MVW R6,PRTBU SAVE R6 
4 2228 * PURPOSE TERMINATE PROGRAM VIA OPERATOR REQUEST * OOOEFC 6F03 110E 2344 BAL FNDDS, R7 GO FIND IN VTOC 
2229 * * QOOFOO 6£E£08 1724 2345 MVW PRTBU,R6 RESTORE R6 
2230 * METHOD THE TERMINATE SWITCH IS TURNED ON IN THE * OOOFO4 75A7 2346 IR R5,R5 SET INDICATORS 
2231 * PROGRAM HEADER. * OOOF06 1008 2347 JZ LP67 BR IF FOUND 
2232 * * OOOFO8 F502 2348 CBI TWO,R5 IS If A DISKETTE ERROR 
2233 * CALLING SEQUENCE * OOOFOA 1030 2349 JE Lp4ys J~YES 
2234 * « QOOFOC 4724 0234 2350 MVA INDIC,R7 GET DCP INDICATORS 
2235 * 9 * OOOF10 4UF8A 2351 TBTR an TRD) IS THE SVC REQ THIS 
2236 * * OOOF12 6A00 0C96 2352 BON RAD1 B-YES 
2237 * WHERE 9 IS THE TERMINATE PROGRAM COMMAND CODE * OOOF16 502A 2353 J LP4g J-DECODE C.C. 
2238 * * QOOOF18 2354 LPO7 EQU * 
2239 OK OO OR OO a Om GR OR OK OR RK I I ok ick kok aekook OO0O0F18 E403 2355 MVWS Reon 7R4 SAVE 1ST SECTOR ADDR DATA SET 
QOOOE74 2240 TPPGM EQU * OOOF1IA E504 2356 MVWS RO,EO 7 RS SAVE END ADR #1 
OOOE74 0305 2241 ABIL OPWRD DISP TO OPTION WORD OOOF1C 74AA 2357 SW RRS GET THE SECTOR NUMBER 
OO0OE76 4B4O 2242 TBTS R3 tbG30) SET TERM PROGRAM OPTION BIT QOOOFIE 2358 LPO7A Eg * 
OOOE78 4724 0234 2243 MVA NDfc GET DCP INDICATORS OOOF1E D468 0018 2359 MVD R4, (R1,QAV1) SAVE 
OOOE7C 4F81 2244 TBTR ge Loop) RESET LOOP IND IF ON O000F22 2360 LPO7B EQU * 
OOOE7E 50D0 2245 J R RETURN TO CALLER OOOF22 4724 0234 2361 MVA INDIC,R7 ADR OF DCP INDICATORS 
22.07 aR OO IR OR OR IO OR OR Om GG GOK I OR fo kK doko aa ak OOOF26 4FOE 2362 TBT (R7 chrun) IS THIS THE CONFIG TABLE 
2248 * * OOOF28 1204 2363 JON LPO of” J-YES 
2249 * NAME BPPGM x OOOF2A 9018 O55E 2364 MVD RO PRGN SAVE THE PROGRAM NAME 
2250 * * OOOF2ZE 8008 0562 2365 MVB RO) , PREN+ FOUR FIVE BYTES 
2251 * PURPOSE THIS ROUTINE IS USED TO START A PROGRAM ALREADY a OO00F32 2366 LPO8B EQU * 
2252 * LOADED INTO STG. * QOOF32 6F03 11C2 2367 BAL DSKRD,R7 GO READ SECTOR 
2253 * * OOOF36 T75AT7 2368 IR R5,R5 SET INDICATORS 
2254 * METHOD A QUE BLOCK IS GENERATED AND PLACED ON LEVEL * O00F38 1819 2369 JINZ Lp4g re IF DISKETTE ERROR 
2255 * 3 RETURN QUE. THE PROGRAM WILL BE STARTED AT * OOOF3A 4724 0234 2370 MVA INDIC,R7 DR OF DCP INDICATORS 
2256 * THE ADDRESS SPECIFIED IN THE DIAGNOSTIC PROGRAM'S * OOOF3E 4F8E 2371 TBTR Ane ChRuN) WAS THIS THE CONFIG TABLE 
2257 * INITIAL EXECUTION POINTER. * OOOF4O 6410 O3E4 2372 BON NFRT* B-YES 
2258 * * OOOF4Y 4024 1336 2373 MVA DBUF+VHDLG,RO ADDR OF INFORMATION PAST HEADER 
2259 * CALLING SEQUENCE * OOOF4US8 2374 LPOY EQ * 
2260 * * OOOF48 CB10 2375 MVW BOs 7R3 PROGRAM LOAD ADR 
2261 * A * OOOF4A CF10 2376 MVW RO) +,R7 PROGRAM LOAD ADR 
2262 * B *NAME® * OOOF4C 3709 2377 SLL NE R7 NUM OF DATA BYTES 
2263 * * OOOFUE 2864 2378 MVFN (ROS, (R3 DATA WORD 
2264 * WHERE A IS THE BEGIN COMMAND ~—- AUTO MODE * OOOF50 D460 0018 2379 MVD R1,0AV1 7R4 GET SECTOR ADDR AND NUMBER SECT 
2265 * B IS THE BEGIN COMMAND - MANUAL MODE * OOOF5Y 0401 2380 ABIL NE, R4 UPDATE SECTOR ADDR 
2266 * NAME IS THE FOUR HEX DIGIT PROGRAM ID. * OOOF56 OSFF 2381 ABIL M1 RS SEE IF READ ALL SECTORS 
2267 * x OOOF58 1026 2382 JZ LP4100 TF SO BR 
2268 3 OR IORI ICICI OR IO IO IK Fok kok i tog ik kak kok ok OOOFSA D468 0018 2383 MVD R4, (R1 gavt) SAVE 
O0O00E80 2269 BPPGM ai * OOOF5E 6F03 11C2 2384 BAL DSKRD,R GO READ NEXT SECTOR 
OOOE8O0 C725 O24UA 2270 MVBZ FIGRN,R7 RESET THE INIT LOAD IND OO0OF62 T5A7 2385 IR R5,R5 SET THE INDICATORS 
OOOES84 2271 BPPG EQU * OOOF64 1803 2386 JINZ Lp49 BR IF ERROR 
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OOOF66 4024 132c 2387 MVA DBUF, RO ADR OF DISKETTE BUFFER 001050 2502 AUS Bou * 
QOOF6A SOEE 2388 J LPO9 GO PROCESS SECTOR 001050 c494 2503 Cc (R2)+,R4 END OF DATA 
OOOF6C 2389 EQU * 001052 1002 2504 JE AUT? J-YES 
QOOF6C 4724 OU4FC 2390 MVA LPB,R7 SET UP TO PRINT MSG 4 001054 0701 2505 ABI ONE, R7 BUMP THE COUNT 
OOOF70 F502 2391 CBI TWO,R5 SEE IF DISKETTE ERROR 001056 SOFC 2506 J AUS 
OOOF72 100F 2392 JE LP55 BR IF ERR 001058 2507 AY? EQU * 
OOOF74 4724 0234 2393 MVA INDIC,R7 ADR OF DCP INDICATORS 001058 6F0D O03A0 2508 MVW R7,CNVT BYTE COUNT 
OOOF78 UF8E 2394 TBTR (R7 ChRUN) IS THIS A CONFIG TABLE 00105C 4724 0O3A0 2509 MVA cuir, R7 ADR OF CONTROL BLOCK 
OOOF7A 1202 2395 JON 6 J-YES 001060 6019 2510 SVC ETOH CONVERT 
OOOF7C 4FOO 2396 TBT (R7, AUTO) IN AUTO MODE 001062 D020 1730 2511 MVD PRBUF, RO MAKE THE DATA ACCESSABLE 
OOOF7E 100B 2397 JOFF Lped J-YES 001066 4724 0234 2512 MVA INDIC,R7 ADR OF DCP INDICATORS 
000F80 2398 EQU * 00O106A 4F82 2513 TBTR (R7, OFF) RESETTING OPTION BITS 
OOOF80 OFOY 2399 MVBI FOUR LENGTH OF NAME 00106C 1203 2514 JON A50 B-YES 
OOOF82 4624 0504 2400 MVA Lpcsh. AG DESTINATION ADDRESS 00106E DOEA OOOE 2515 RBTD RO, (R3,OPWRD) RESET SPECIFIED BITS DIAGNOSTIC 
OOOF86 6B08 17EE 2401 MVW FNDPG, R3 ADDRESS OF NAME LOCATION 2516 * PROGRAM OPTION WOR 
OOOF8A 2BC4 2402 MVFN {R35} (R6) MOVE NAME 001072 2517 A60 
OOOF8C O3FC 2403 ABI 4, 8 RESET POINTER 001074 2518 A50 EQu 
OOOF8E 4724 OS5SOA 2404 MVA LPC, R7 SET UP TO PRINT MSG 5 001074 OO0OE 2519 O RO, (R3,OPWRD) T/ON OPTION BITS 
OOO0F92 2405 LP55 EQU * 001078 2520 A60 EQU 
OOO0F92 6000 2406 SVC our 001078 6802 OE20 2521 MRTN1 RETURN 
OOOF94 5048 2407 J LP120 RETURN TO ENTER 2523 7 FR RR RIG IO IOI IO III III IO Ra OK ik OK 
OO00F96 2408 LP60 EOQU * 2524 * * 
OOOF96 4FOD 2409 TBT (R7,LDIAG) IS LOOP DIAG PACKAGE ON 2525 * NAME REPGM * 
O0O0F98 1003 2410 JOFF L”p76 J-NO 2526 * * 
OOOF9A 4FS8C 2411 TBTR 22 TUIDS) RESET INDICATOR 2527 * PURPOSE THIS PROGRAM ALLOWS THE OPERATOR TO RESPOND TO * 
OOOF9C 6802 O5B2 2412 B ESR B-YES~~START OVER 2528 * A DIAGNOSTIC PROGRAM REQUEST FOR INFORMATION. IT IS * 
OOOFAO 2413 LP70 EQu 2529 * USED AS THE RESPONSE PORTION OF THE SVC OUTIN * 
OOOFAO 4724 051Cc 2414 =. MVA REMG1, R7 ADR OF DCP READY MSG 2530 * POUTINE. 
OOOFAY SOFE 2415 J LP55 2531 * * 
OOOFA6 2416 LP100 EOQU * 2532 * METHOD ROUTINE WILL CONVERT THE DATA ASKED FOR BY THE * 
OOOFA6 C625 OS6A 2417 MVBZ PRGNB,R6 MSG STOPPER 2533 * DIAGNOSTIC PROGRAM TO THE FOPMAT REQUFSTED AND PLACE * 
OOOFAA 4624 1808 2418 MVA DEVPT, R6 POINTER TO DEVICE TABLE 2534 * IT IN THE DIAGNOSTIC PROGPAM RUFFER AND RETURN TO * 
OOOFAE 6EC8 0000 2419 MVW 8) RE GET THE TABLE ADDRESS 2535 * THE DIAGNOSTIC PROGRAM. * 
OOOFB2 0602 2420 ABL WO, RE BUMP TO DEVICE TYPE 2536 * x 
OOOF34 4810 2421 TBT {R60 UDTAS) WAS A DEVICE ASSIGNED 2537 * CALLING SEQUENCE * 
OOOFB6 1013 2422 JOFF J-NO 2538 * * 
OOOFB8 862B 0001 O3E0 2423 CB (R6 ONE) , HEX3E ARE YOU SURE 2539 * F XXXXXXXXX 
OOOFBE 1007 2424 JE LP1 14 J-RIGHT YOU ARE 2540 * * 
QOOOFCO 6F08 O55E 2425 MVW PRGN ADDRESS OF THE PROGRAM NAME 2541 * WHERE F IS THE RESPOND TO A PROGRAM COMMAMD. * 
QOOFC4 TFEY FFC3 2426 RBTWI FERS RT CLEAR THE UNWANTED BITS 2542 * XXXX IS THE DATA REQUESTED BY THE PROGRAM * 
OOOFC8 CF24 03c0 2427 CW FOX30,R7 IS THIS A DIAGNOSTIC 2543 * * 
OOO0FCC 1008 2428 JE LP105° J-YES 2544 PPPS SS LSS SSS SSS SSS SL SL SSS SSS SL SSS SSS SSCS SSSSLSSLSCSCSSSCSCLSLS OSC SSS OSL S SL et es 
OOOFCE 2429 LP104 EQU 00107C 2545 REPGM EQU * 
OOOFCE 8608 0573 2430 MVB (26) PRGNA SET UP ADR TO BE CONVERTED 00107C C125 1798 254E€ MVBZ INPRC,R1 IS AN OUT/IN IN PROC 
OOOFD2 4724 03A6 2431 MVA EVAD, R7 CONTROL BLOCK 001080 1804 2547 JNZ B01 B-YES 
OOOFD6 601A - 2432 SVC HTOE CONVERT TO PRINT 001082 4724 17F6 2°48 MVA PPRL2,R7 MESSAGE ADR 
OOOFDS8 8028 0481 OSEA 2433 MVB EBCBK, PRGNR T/OFF MESSAGE STOPPER 001086 6000 2549 SVC OUT 
OOOFDE 2434 LP105 EQU * 001088 2550 BOO EQU * 
OOOFDE 802B 03CE O55R 2435 CB OCHAR, PRGN IS THTS AN OVERLAY 001088 50CE 2551 J LP120 RETURN TO ENTER 
OOOFEG 1006 2436 JE LP103 J-YES 00108A 2552 BO1 EQU * 
OOOFE6 4724 O3AC 2437 MVA CNVNM,R7 CONTROL BLOCK 00108A 6908 0010 2553 MVW S¥CPT R1 RESET R TO POINT 
OOOFEA 6019 2438 SVC ETOH CONVERT TO PRINT 00108E O1E4 2554 ABI R4 AT SVC LSB 
QOOFEC 4724 057C 2439 MVA LPD,R7 SET UP TO PRINT THE LOADED MSG 001090 D128 17F4 2555 MVD i, r SAV SAVE REGS TO RE USED 
OOOFFO 6000 2440 SVC ouT PRINT THE MSG 001094 72C4 2556 MVW SAVE BUFFER ADDR 
OOOFF2 2441 LP103 EQU 001096 6B08 17F8 2557 MVW SOEs, R3 GET PARA ADDR 
OOOFF2 4624 0224 2442 MVA INDIC,R6 ADR FOR DCP INDICATORS 2558 * 
OOOFF6 4E4Y 2443 TBTS R6,LODED) T/ON LOADED BIT 2559 * RETURN INPUT TO PROGRAM AS ERCDIC DATA 
OOOFF8 4EB8A 2444 TBTR R6, IRD) IS MDI MAP READ SVC 2560 * 
OOOFFA 6A00 0C96 2445 BON RAD1 B-YES 00109A 2561 BOS Bou * 
OOOFFE C320 O24A 2446 MVB FIGRN, R3 CONFIG RUN? 00109A COEO 0007 2562 MVB (R3,SEVEN) ,RO GET CONVERSION FACTOR 
001002 1802 2uUuN7 JNZ LP106 J-YES 00109E 1811 2563 JINZ B4O BR IF NOT EBCDIC 
001004 C325 03E2 2448 MVBZ INTLD,R3 CLEAR INITIAL LOAD IND 0010A0 2564 B10 EQU * 
001008 2U4u9 LP106 EQU * 0010A0 E7C2 2565 MVWS (R3,FOUR) ,2P7 GET MAX NUMBER CHARS 
001008 6F03 O61E 2450 BAL UDTID, R7 TRY TO ASSIGN A DEVICE 0010A2 2566 B11 EQU * 
00100C 4EB8C 2451 TBTR (R6 TODS) IS SAVE T.U. I.D.'S ON 0010A2 F740 2567 CBI SIXT4,R7 SEE IF ASKING OVER 64 CHARS 
00100EF 1003 2452 JOFF .Lp167 J-NO 0010A4 1901 2568 JNP B12 IF NOT BR 
001010 9088 03C8 0012 2453 MVD TUNAN, (R3, HTULID) GIV® THE NAME TO MDI 0010A6 OFUO 2569 MVBI SIXT4,R7 SET MAX AT 64 
001016 2454 LP107 EQU 0010A8 2570 B12 EQU x 
001016 4800 2455 TBT (BG. AUTO) IN AUTOMATIC MODE 0010A8 £3C1 2571 MVWS R3 TWO) R3 GET BUFFER ADDR 
001018 6800 OFB6 2456 BOFF B-YES~-BEGIN DIAGNOSTIC PGM OO10AA 2E64 2572 MVFN R6{, R j MOVE RESPONSE INTO DIAGNOSTIC PROGRAM 
00101C 802B 036EF 036D 2457 CB CMND,OPTRB WAS THE COMND A B Q0Q10AC 2573 B13 EQU 
001022 6800 OEB6 2458 BE BPP1 B-YES OO1T0AC 6908 1T7FY4 2574 MVW SAV,R1 FELOAD REGISTER 1 
001026 2459 LP120 EQU x 0O010BO0 4724 0234 2575 MVA INDIC,R7 ADDRESS OF DCP INDICATORS 
001026 6802 0610 2460 B RETRN PRINT ENTER MSG 0010B4 6B08 17F8 2576 MVW SAVE7,P3 RFSTORE REG 7 

VARS SSS LSS SSS TSS CCS SST TS SSCS SSS SSL SS CPSC CCC OS CSCS CSCC SC LTC STS Le LS Se Ss 2s 2. 2 001088 4B30 2577 TBT Ae? MBTRT) RESET MDI BIT IN CTRL BLOCK 

2463 * x 0010BA 6800 O7D4 2578 BOFF VCRT RETURN VIA SVC RETURN 

gies : NAME OOPGM * 0010BE 6802 OFf7E $212 P SCHED RFTURN TO SCHEDULER 

* 

2466 : PURPOSE SET BRITS OFF/ON IN DIAGNOSTIC PGM OPTION WORDS. : Zoe] " RETURN INPUT TO PROGRAM AS HEX DATA 

2468 * METHOD THE OPTION WORDS KEYED IN ARE USED AS A MASK TO SET OR * 0010C2 2583 B4O EQU x 

2469 * RESET BITS IN THE SPECIFIED DIAGNOSTIC PROGRAM OPTION * 0010C2 748A 2584 SW R4,R4 ZERO R4& 

2470 * ‘ * 0010C4 2555 Bul EQU * 

3u71 * ok 0010C4 6D08 17F6 2586 MVW SAV2,R5 RESET R5 

24U72 * CALLING SEQUENCE x 0010C8 80A3 OY9A 2587 CB HEX06, (R2) TERMINATION CHARACTER 

2473 * * 0010CC 1004 2588 JE B42 YES/COMPLETE DATA 

2u74 * D XXXXYYYY * 0010CE S80A7 0481 2589 CB EBCBK, (R2) + FIELD DEPINITION CHARACTER 

2475 * EF XXXXYYYY *x 001002 18F8 2590 JNE But NO/CONTINUE TO LOOK FOR ONE 

2476 * * 0010D4 O0O2FF 2591 ABI M1,R2 POINT TO BLANK 

2477 * WHERE D IS THE COMMAND TO SET BITS ON IN A * 0010D6 2592 B42 EQU * 

2478 * DIAGNOSTIC PROGRAM'S OPTTON WORDS. * 0010D6 764A 2593 S R6,R2 FIND BYTF COUNT 

2u79 * IS THE COMMAND TO SET BITS OFF IN A x 0010D8 F200 2594 CBI ZERO,R2 DATA COUNT EQUAL ZERO 

2480 * DIAGNOSTIC PROGRAM'S OPTION WORDS. * OO10DA 1015 2595 JE BuY YES/COMPLETE 

2481 * XXX¥X IS THE BITS IN HEX TO SET OFF OR ON 1ST WORD x 0010NC 6A0D O03B2 2596 MVW R2,REVT PLACE COUNT IN CONTROL BLOCK 

2482 * YYYY IS THE BITS IN HEX TO SET OFF OR ON 2ND WORD * Q0010E0 7204 2597 MVW R2,R0 AND SAVE FOR LATER 

24U83 * * 0010E2 6E0D O0O3B4 2598 MVW R6,REVT1 DATA ADDRESS 

2484 tek de da toc tok aa aaa aa OGIO CG GI ICICI OIE I GIGI ICE A OOO I OR RC ok QO10E6 T74A8 2599 AW R4,R5 UPDATE BUFFER ADDRESS 
00102A 2485 ONPGM EU *x 0010E8 6DOD 03B6 2600 MVW R5,REVT2 BUFFER ADDRESS 
00102A 4724 0234 2U86 A INDIC GET ADR OF DCP INDICATORS 0010EC 4724 03B2 2601 MVA REQT, R7 ADDRESS OF CONTROL BLOCK 
00102E 4F42 2487 TBTS (270 Oh}. T/ON INDICATOR 0010FO0 6019 2602 SVC ETOH CONVERT TO HEX 
001030 5003 2488 J Al CONTINUE 0010F2 7648 2603 AW R6,R2 ADJUST DATA ADDRESS 
001032 2489 OFPGM EQU * 0010F4 2604 B43 EOU * 
001032 4724 0234 2490 MVA INDI GET ADR OF DCP INDICATORS OO10F4 80A7 0481 2605 C EBCBK, (R2) + CHARACTER A BLANK 
001036 4FB82 2491 TBTR (RT, OFF) SET THIS BIT OFF 0010F8 10FD 2606 JE B43 YFS/SKIP TO NEXT NON-BLANK 
001038 2492 A10 EQU * OO10FA O2FF 2607 ABI M1,P2 POINT TO FIRST NOW-BLANK CHARACTER 
001038 4F00 2493 TBT (R7, AUTO) IN BUTO MODE 0010FC 72C4 2608 MVW R2,R6 RESET R2 
00103A 1202 2494 JON A20 -NO OO10FE 0001 2609 ABIL ONE, RO ADD ONE FOR ODD COUNTS 
00103C 6802 OECE 2495 B LPOO PRINT THE MSG 001100 300A 2610 SRL ONE, RO HALF CHARACTER COUNT=HEX BYTE COUNT 
001040 2496 A20 EQU * 901102 7088 2611 AW RO Ry TOTAL HEX BYTE COUNT 
001040 C025 172F 2497 MVBZ PRTBF,RO SET AN END CHAR 001104 SODF 2612 J BY 4 DO NEXT SET 
001044 D025 1730 2498 MVDZ PRBUF,RO CLEAR THE DATA AREA 001106 2613 Buy EQU * 
001048 OFO00 2499 MVBY ZERO,R7 CLEAR R7 001106 AGUA 2614 MVWS R4 srl QR7) SET NUMBER OF BYTES FOR PROGRAM 
00104A 0CO00 2500 MVBI ZERO, R4 CLEAR R4 001108 6808 17F64 2615 MYW SAY ,RO BUFFER ADDRESS 
00104C 6A0D 03A2 2501 MVW R2,chvt1 TARGET AREA 00110C 50C9 2616 J B10 MOVE HEX DATA TO DIAGNOSTIC 
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26 18 262 IOI IORI RI III IIR IRR IO IOI II Ok 00111A 6B08 17EE 2734 MVW FNDPG,R3 ADR OF DATA SET NAME 
2619 * * 001115 2735 FN10 EQU * 
2620 * THE FOLLOWING IS THE DESCRIPTION OF THE DIAGNOSTIC Ok 00111E 9F51 2736 oer DSKRD,R7 READ A VTOC SECTOR 
2621 * DISKETTE FORMAT: * 001120 T5A7 2737 IR R5,R5 SET CONDITION CODES 
2622 * START END * 001122 182c 2738 INZ  FN4SO BR IF DISKETTE ERROR 
2623 * CYL TRK CYL TRK DESCRIPTION * 001124 OFO8 2739 MVBI NDFPS,R7 NUMBER DATA SET DEFINED/RECORD 
2624 * 0 0 0 1 IPL PROGRAM * 001126 2740 FN20 EQU * 
2625 * 1 0 3 1 DISKETTE DIAGNOSTIC TEST TRACKS * 001126 E500 2741 MVWS RO) ,R5 SEE IF END OF ENTRIES IN VTOC 
2626 * 4 0 5 1 CPU TEST PROGRAM (PROC1 * 001128 102C 2742 JZ N IF SO BR 
2627 * 6 0 7 1 CPU TEST PROGRAM PROC2 * 00112A 830B 0481 2743 CB Bib’ WAS A DIAGNOSTIC SPECIFIED 
2628 * 8 0 9 1 CPU TEST fe ane PROC3 * 00112E 102B 2744 JE N6 B-NO--TAKE THE FIRST ONE 
2629 * 10 0 10 1 DCP PROGRAM (DC PO) * 001130 4224 0234 2745 MVA IN 422 ADR OF DCP INDICATORS 
2630 * 11 0 11 1 VTOC (DIRECTOR * 001134 4A08 2746 TRY (R25 NKTVT) TAKE NEXT IND ON 
2631 * 12 0 73 1 PROBLEM RROURAH SPACE * 001136 1227 2747 JON B-YES--TAKE THIS ONE 
2632 * MDI * 001138 2748 FN22 EOQU * 
2633 * MAPS AND TUS * 001138 E604 2749 MVWS (RO,EOE) ,R6 SAVE EOE 
2634 * DCP UTILITIES * 00113A 7044 2750 MVW k2 ADR OF HEX PID 
2635 * OTHER DIAGNOSTICS * 00113C 0201 2751 ABIL ONE R2 BUMP PAST 1ST CHAR 
2636 * 74 0 76 1 DISKETTE DIAGNOSTIC TEST TRACKS * 00113E ODO4 2752 MVBI FOUR,RS BYTE COUNT 
2637 * * 001140 2753 FN25 EoU. * 
2638 PPPS SPSSLS SSL SSP SE SSS SES SSF E SS SSLLS FSS tS P SSPE SSS SSS SSS SS SSS SSS SSS ES FS FES SS ' 001140 8397 2754 C ABS) tebe) SEE IF DATA SET NAME IS THE SAME 
2639 * * 001142 1816 2755 INE N3 B-NO NOT THIS ONE 
2640 * THE FOLLOWING IS THE FORMAT OF A VTOC ENTRY: * 001144 BDFD 2756 JCT  FN25,R5 FINISH THE DATA SET NAME 
2641 * * 001146 4224 0234 2757 MVA INDIC,R2 ADR OF DCP INDICATORS 
2642 * EACH ENTRY IS 32 BYTES IN LENGTH WITH 8 ENTRIES/SECTOR. * OO114A 4A83 2758 TBTR sks UfIL) Hr aie REQUESTING DATA 
2643 * * 00114c 1238 2759 JON 176 J-YE 
Zo4i * BYTES DESCRIPTION * OO114E 4GAOA 2760 TBT (R2 IRD) Is EFC REQ DATA SET 
645 * o- 5 DATASET NAME IN EBCDIC. * 001150 1236 2761 JON N76 J-YES--THIS IS THE ONE 
2646 * 6- 7 BEGINNING RECORD NUMBER OF THE PROGRAM (BOB) - * 001152 4AOE 2762 TBT 4R2 CNRUN) CONFIG TABLE REQ 
2647 * 8- 9 ENDING RECORD NUMBER+1 OF THE PROGRAM (EOE). * 001154 1234 2763 JON n76 J-YES 
2648 * 10-11 RESERVED (USED IN PRGPDS ENTRY AS : * 001156 4A00 2764 TBT (R2 AUTO) IN AUTOMATIC MODE 
2649 * 12 TYPE OF DATASET ~- 'Pt PROGRAM DATASET. * 001158 1007 2765 JOFF N27 B-YES 
2650 * - '*pt NON-ADDRESSABLE DATASET. * 00115A 7064 2766 MVW RO,R3 
2651 * 13-16 RESERVED. * 00115C 832B 000C 03CD 2767 CB 43 DSTYP) ,DCHAR IS THIS AN EXEC PGM 
2652 * 17 PATCH COUNT (TIMES PROGRAM HAS BEEN PATCHED). * 001162 1815 2768 JNE N6OA B-YES 
2653 * 18-24 PROGRAM PART NUMBER. * 001164 6802 OECE 2769 B LPOO INV REQ MESSAGE 
2654 * 25-31 PROGRAM EC NUMBER. * 001168 2770 FN27 EQU * 
2655 * * 001168 C520 O3E2 2771 MVB INTLD,R5 IS THE INITIAL LOAD IND ON 
2656 PS STS SS SSS SS SS SL SSS SSS SSSSSS SS SSSSESLSSSSLSSSSSSSSSSSSSS SS SP SLES LSS See es St eS 00116C 1810 2772 JNZ FN60A J~YES--TAKE THIS ONE 
2657 * * O0O0116EB 4GaAd8 2773 TBIS {R2, NXTVT) SET IND TO TAKE NEXT ENTRY 
2658 * THE FOLLOWING IS THE METHOD OF RECORD NUMBERING: * 001170 2774 FN30 EQU 
2659 * * 001170 0020 2775 ABI LVTE,RO UPDATE TO NEXT ENTRY 
2660 * ALL RECORDS ARE GIVEN A UNIQUE NUMBER 0-2309. NUMBERING * 001172 6B08 17EE 2776 MVW  FNDPG,R3 RESET NAME POINTER 
2661 * STARTS AT CYLINDER O, TRACK O RECORD (0) AND GOES * 001176 BFD7 2777 JcT FN20 £7 LOOP THRU ALL DATA SETS ON SECT 
2662 * TO CYLINDER 76, TRACK 1, RECORD 15 (23 09). SEQUENCING * 001178 0401 2778 ABI ONE,R4 UPDATE TO NEXT SECTOR 
2663 * GOES FROM TRA ACK 0 REconb 15 TO TRACK 1 RECORD 1 THEN TO * OO117A 50D1 2779 J FN10 CONTINUE 
2664 * THE NEXT creak ee TRACK O. * 00117C 2780 FN4O EQU * 
2665 * * 00117C 75A7 2781 IR R5,R5 SET INDICATORS TO REFLECT XR5 
MANA MELLEL LS TS SST ST STS TTS SSE LSS STS SS TT FT PES STS SST SSF SSS SS SS STS STS SSS TSS SSS SS 00117E 6832 OO1TA 2782 (R41, OAV2) * RETURN TO CALLING RTN 
2668 PSS SSS S SSE SSS SS SSS SSS SSSESSS SSS SS SSL SSSSSSSS SSS SSISSEE SS SS S+S SS SPSS SSS 3 S 3 001182 2783 FN5O qu * 
2669 * * 001182 0D01 2784 MVBI ONE, RS SET DATA SET NOT FOUND 
2670 * THE FOLLOWING IS THE FORMAT OF A DATASET CONTAINING A * 001184 5OFB 2785 J FNUOG GO RETURN 
2671 * PROGRAM. * 001186 2786 FN60 EQU. * 
2672 * * 001186 800B 03CD 2787 Cc 4R9 ,DCHAR DIAGNOSTIC PGM 
2673 * FIRST SECTOR OF PROGRAM * 00118A 18F2 2788 INE N3 = 
2674 * k 00118C 4A88 2789 TBTR (R2,NXTVT) RESET BIT IF ON 
5675 * BYTES * 00118E 2790 FN6GOA EQU * 
2676 * O- 1 LENGTH OF PROGRAM IN BYTE * 00118E 4724 0234 2791 MVA INDIC,R7 ADR OF DCP INDICATORS 
2677 * 2- 3 ADDRESS PROGRAM IS TO eke EXECUTION AT. * 001192 800B O3CC 2792 CB (89) -icuar TT. Ues LeDe 
2678 * 4u- 5 NUMBER DATA SECTORS IN DATASET. * 001196 1813 2793 INE N7 = 
2679 * 6- 9 RESERVE * 001198 4020 17EE 03c4 2794 MVA  MDINM,FNDPG MDI SUP NAME 
2680 * 10- 11 ADDRESS OF 1ST DATA WORD-MUST BE AN EVEN ADDRESS. * 00119R 4F4c 2795 TBTS (Ri TOIDS) SET INDICATOR FOR DCP 
2681 * 12- 13 NUMBER DATA WORDS IN RECORD. x 001180 4324 OS5F 2796 MVA RGN1,R3 U ID 
2682 * 14-239 113 DATA WORD-OBJECT MODULE. * 0011A4 4224 03C8 2797 MVA  TUNAM,R2 SAVE FOR MDI 
2683 * 240-255 RELOCATION FLAGS. * 001148 OFO4 2798 MVBI FOUR,&7 NUMBER OF BYTES 
2684 * * OO11AA 2799 FN6A EQU * 
2685 * REMAINING SECTORS OF PROGRAM * 0011AA 8394 2800 MVB R3) + An21* MOVE A 
2686 * BYTES * 0011AC BFFE 2801 ICT N6A,R BYTE AT A TIME 
2687 * O- 1 ADDRESS OF 1ST DATA WORD-MUST BE AN EVEN ADDRESS. * OO11AE OFOY 2802 MVBI FOUR, R7 BYTES TO BE MOVED 
2688 * 2- 3 NUMBER DATA WORDS IN RECORD. * 0011B0 4324 03C4 2803 MVA  MDINK,R3 MDI SUPER NAME 
2689 * 4-239 118 DATA WORDS-OBJECT MODULE. * 0011B4 4224 O55F 2804 MVA PRGN1, R2 SAVE THE DATA SET NAME 
2690 * 240-255 RELOCATION FLAGS. * 0011B8 2805 FN60D ER * 
2691 * BIT O IS RELOCATION FLAG FOR 1ST DATA WORD. * 0011B8 8394 2806 MVB ed R2)+ MOVE THE NAME 
2692 * BIT 1 FOR 2ND DATA WORD ETC..... * 0011BA BFFE 2807 JCT N60D,R7 MOVE ALL BYTES 
2693 * * 0011BC 50AC 2808 J FNOS5 GO FIND MDI SUP 
2694 * BIT ON INDICATES DATA WORD IS RELOCATABLE. * O001TBE 2809 FN70 aa * 
2695 * OFF INDICATES ABSOLUTE. * 0011BE ODO00 2810 MVBI ZERO, R5 SET DATA SET FOUND 
2696 * * 0011C0 5O0DD 2811 FN4O GO RETURN 
2697 PSST SS STS SS SSS SSS PSS SSS SSS SESS SSS SSS SS SSS S SS SSS SS SES STS SSS SS FSS SS FS SSS TS SS 3 2813 PSST SPS SPSL STS SSP SES SSS SSS SST SS SPSS ST SS SSS SST SFP ES SEPT SSL ESL SSS FS SS tt Ste 
2699 PSL SSS SSSESLESSSSSSSSSSE SSSSSSESSPSSS SESS SSS SS SSSESSSSPSLS SSL SSS SSS SESE SSS SS | 2814 * * 
2700 * * 2815 * THE FOLLOWING ROUTINE IS ENTERED BY THE DCP TO DO * 
230) : NAME FNDDS : 2618 : A READ FROM THE DCP DISKETTE INTO ITS OWN BUFFER. : 
2703 * PURPOSE TO FIND A DATA SET NAME IN THE VTOC * 28.18 [eGR II I OI IGG IORI GI IAG IG OO I IO IOIOK 
2704 * * 0011C2 2819 DSKRD EQU- * 
2705 * METHOD THE ADDRESS OF THE UE BLOCK GENERATED BY THE * 0011C2 4524 12E6 2820 MVA RDCB,R5 ADDR READ DCB 
2706 * DIAGNOSTIC PROGRAM VC IS PASSED TO THIS ROUTINE IN * 0011C6 5002 2821 J DSK10 GO ISSUE READ 
2707 * XR1. THE DATA SET NAME IN THE DIAGNOSTIC PROGRAM * ZBDZ BK RK KH KK HHH HK HK HK KR KK I HK OK Re KK KK KKK KKK 
2708 * PARA LIST IS COMPARED WITH ENTRIES IN THE VTOC. * 2824 
2709 * CONTROL WILL BE RETURNED WITH THE FOLLOWING REGS * 2825 * THE FOLLOWING ROUTINE IS ENTERED BY THE DCP TO DO * 
2710 * SET WHEN THIS ROUTINE IS COMPLETED. * 2826 * A WRITE TO THE DCP DISKETTE FROM ITS OWN BUFFER. * 
2712 * RO=ADDR OF CORE LOCATION OF VTOC ENTRY OR NEXT * 2828 * FROM THE LABEL DSK10 ON IS A COMMON ROUTINE TO SET UP THE * 
2713 * AVAILABLE ADDR IF NOT FOUND. * 2829 * DCBS AND ISSUE THE IO COMMAND TO THE DISKETTE. IT ALSO CHECKS * 
2714 * R1=QUE BLOCK ADDR * 2830 * THE CONDITION CODE AFTER THE I/0 AND DOES ERROR RECOVERY. * 
2715 * R2=HEADER ADDR OF DIAGNOSTIC PROGRAM * 2831 * * 
2716 * R3=ADDR OF DIAGNOSTIC PROGRAM PARA LIST * 2832 pS St St Se SSSSL SS ESSE SSS SE SRE SS SSS SSS SESE FS SSSTSS SS SS SS SS SES SPSS SSS SS SES ES 
2717 * RY=SECTOR ADDR OF VTOC WHERE DATA SET NAME * 0011C8 2833 DSKWR Eon * 
2718 * FOUND OR WHERE SLOT AVAILABLE IF NOT FOUND. * 0011C8 Y524 12F6 2834 WRDCB,R5 ADDR WRITE DCB 
2719 * R5=0 IF FOUND 1 IF NOT FOUND, 2 IF DISKETTE ERROR * 0011CC 2835 DSK10 EQU * 
2720 * 4 IF vtoc FULL x 0011CC 4024 132c 2836 MYA  DBUF,RO ADD DISKETTE BUFFER 
2721 * R6=NEXT AVAIL DATA SECTOR ADDR IF NOT FOUND OR * 0011D0 4020 142c 0010 2837 MVWI STxTh DKRTY SET RETRY COUNT 
2722 * EOE OF DATA SET IF FOUND. * 0011D6 6D1D 12E4 2838 MVW R5 ADDCB* SET CHAIN ADDR OR IDCB ADDR 
2723 * * 0011DA 8828 1316 1314 2839 MVW DKSV2,DKSV RESTORE POINTER 
2724 * CONDITION CODE UPON RETURN WILL REFLECT CONTENTS * 0011E0 4028 1314 C000 2840 STM R6 DKSV SAVE REGS 
2725 * OF XRS5S. * 001156 4020 17BE 130E 2841 MVA DSKPR,IDCB SAVE ADR OF IDCB 
2726 * M 0011EC 680C 1308 2842 Ke) DSKPR PREPARE DISKETTE 
2727 PP SPSS SPE SPSS SSS SLSESSSSSSSSLESSFLSLSS SLE SSS SS SSSSSSLS S SSS SST SSS SL SS SSS SL es S 0011F0 6F05 1238 2843 BNCC SEVEN, IS25 J-NO DISKETTE ERROR 
001108 2728 FNDDS EQ U * 0011F4 2844 DSK20 EQU. * 
00110E A74D 2729 MVWS Hee BN g94¥2) SAVE ae aan ADDR OO011F4 9F40 2845 JAL SEEK,R7? GO SET UP DCBS 
001110 4724 0353 2730 AVA upt ADR IND 0011F6 4624 1306 2846 MVA  SEIDB,R6 IDCB TO START SEEK 
001114 YPFB2 2731 TBTR {[R7e Dek apeRr THE CONFIG TABLE LOADED BIT OO11FA 2847 IS10 EQU * 
001116 2732 FNOS EOU OO11FA 4029 142C FFFF 2848 AWI M1,DKRTY DECREMENT RETRY COUNT 
001116 GH24 O14WA 2733 WI VTOCA, R& ADDR 1ST VTOC SECTOR 001200 121B 2849 JN Ts45 RETURN IF UNRECOVERABLE ERROR 
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001202 6£E0D 17BL 2850 MVW R6,I1DCB SAVE THE IDCB ADR 2967 * WRITE DCB 
001206 68CcCC 0000 2851 IO (r6) ISSUE I/O TO DISKETTE 0012F6 8001 2968 WRDCB DC X*80018 DCB CONTROL WORD 
OO120A 2852 IS12 EQU * 0012F8 0000 2969 WRW2 DC A (0 SEEK CONTROL WORD 
00120A 6F04 OS5ST7E 2853 BCC SEVEN, SCHED GO TO SCHED IF I/O OK 0012FA 0000 2970 DC A (0 FORMAT DATA WORD 
OO120E 2854 IS20 EQU * 0012FC 0000 2971 WRW4 DC A (0 N/CYLINDER WORD 
00120E 4020 17BE 1312 2855 MVA DKRST,IDCB SAVE THE IDCB ADR Q0012FE 0000 2972 DC A(0 HEAD/SECTOR WORD 
001214 680C 1312 2856 IO DKRST ISSUE RESET 001300 12c4 2973 DC A (VDCB) CHAIN ADDRESS 
001218 4020 17BE 130E 2857 MVA DSKPR,IDCB SAVE THE IDCB ADR 001302 0100 2974 DC A eek BYTE COUNT 
00121E 680C 130E 2858 Io DSKPR’ ISSUE PREPARE 001304 132C 2915 DC A (DBUF) DATA ADDRESS 
001222 6F05 1238 2859 BNCC SEVFN,IS25 PR IF IN ERROR 2977 * 
001226 OFOO 2860 MVBI ZERO, Ri” INITIALIZE R7 TO O 2978 * DISKETTE IDCB®S 
001228 2861 I1S22 EQU 2979... * 
001228 6EOD 17BE 2862 MVW RE IDCB SAVE THE IDCB ADR 2980 * START IDCB 
00122C 68CC 0000 2863 Io AR ) RE-~ISSUE THE IO 001306 7000 2981 SEIDB DC X*7000! START IDCB 
001230 6A05 120A 2864 BNCC WO,IS12 TF NOT CC = BUSY AFTER RESET THEN 001307 2982 SEID1 EQU SEIDB+ONE 
2865 * GO TEST FOR CC = 7 001398 12D6 2983 DCBAD DC A (SEDC BY ADDR SEEK DCB 
001234 0701 2866 ABI ONE ELSE ADD TO RETRY/DELAY COUNTER 2984 * START IDCB - RECALIBRATE 
001236 11F8 2867 JP 1525 LOOP UNTIL OVERFLOW OR CC NOT = 2 00130A 7000 2985 CALIR DC X*7000? RECALIBRATE IDCB 
001238 2868 IS25 EQU 00130C 12D4 2986 C A (RECAL) 
001238 4020 1328 0002 2869 MVWI THO eDKR5 SET DISKETTE ERROR CODE 2987 * PREPARE IDCB 
00123E 4020 0246 1246 2870 MVA DSKIT, DKINT RESTORE INT ADR 00130E 6000 2988 DSKPR DC X¥*'6000! PREPARE DISKETTE IDBC 
001244 5005 2871 J DKOY RETURN TO CALLING RTN 001310 0005 2989 DC Xx*0005! 
2873 RAO ook oo ok og ga GR a Or gata ga ara a dokok ak geo ak ak aka ak ak ak ake ake ak akcak akc ac ake akc ake ae ak akookc ok 2990 * RES IDCB 
2874 * * 001312 6F00 2991 DKRST DC X*6FO0* RESET DISKETTE IDCB 
2875 * THE FOLLOWING ROUTINE HANDLES INTERUPTS FROM THE * 2992 
goi8 : DCP CONTROLLED DISKETTE. : 500k . DISKETTE KOUTINE REGISTER SAVE AREA 
2878 2 OR ICG GIGI IO IO ICI IG I I a i I II ak kok Ok aK ak ak ak fc ak ak 901314 132C 2995 DKSV ..0C A (DKHL TEA 
001246 2879 DSKIT EQU * 001316 132C 2996 DKSV2 DC A (DKHL HLA 
001246 6B05 1254 2880 BNCC THREE,DK10 BR IF NOT DEVICE END INT 001318 131A 2997 DC A (DKLL LLA 
00124A 4020 1328 0000 2881 MVWI ZERO, DKRS SET DISKETTE I/O OK 90131A 0000 2998 DKLL DC A(0 
001250 2882 DKO4 EQU 00131C 0000 2999 DKR7T DC A (0 REGISTER 7 
001250 402A 1314 2883 LMB DKSV RET TO RTN PRFQUESTING I/O 00131E 0000 3000 DKRO DC A (0 0 
001254 2884 DK10 EQU 001320 0000 3001 DKR1 DC A (0 1 
001254 6CO4 OS57E 2685 BCC FOUR Sc neD DISKETTE JUST BECAME READY 001322 0000 3002 DKR2 DC A (0 2 
001258 4624 130A 2886 MVA CALIB,R GET RECALIBPATE ADR 901324 0000 3003 DKR3 DC A (0 3 
00125C 4020 0246 1264 2887 MVA DK12, RINT NEW INTERRUPT ADR 001326 0000 3004 DKR4 DC A (0 4 
001262 50CB 2888 J TS10- RE-CALIBRATE THE DISKETTE 001328 0000 3005 DKR5 DC A (0 5 
001264 2889 DK12 EQU 00132A 0000 3006 DKR6— DC A (0 6 
001264 6B05 11FA 2890 BNCC THREE,1IS10 BR/ERROR - RETRY 00132C 3007 DKHL EQU * 
001268 4020 0246 1246 2891 MVA DSKIT,DKINT RESTORE ORIGINAL INTERRUPT ADR 3008 
00126E 4020 142E 0000 2892 MVWI ZERO,PCYLA HOME POSITION 3009 * DISKETTIO SECTOR DATA BUFFER 
001274 SOBF 2893 SK26 PEISSUE THE I/0 3010 x 
2895 [OG GO GO GO a a ak oi ak i tok ak aoa ia ak kok kok akc ak akc ok 00132C 00000000000000000 3011 DBUF DC 128A (0) DISKETTE BUFFER APEA 
2896 * * 09132C 3012 ASCDT EQU DBUF DATA STORE AREA 
2897 * THE FOLLOWING ROUTINE BUILDS AND SETS THE SEEK CONTROL * 00132E 3013 DSCOD EQU DBUF+TWO MESSAGE CODE 
2898 * WORD IN THE SEEK DCB AND THE HEAD/SECT AND N/CYL WORDS * 001330 3014 DSBUF EQU DBUF+FOUP START OF STORAGE DUMP OUTPUT BUFFER 
2899 * IN READ, WRITE AND VERIFY DOCBS. * 3015 * 
2900 * * 3016 * DISKETTE DATA CONSTANTS 
2901 * THE SECTOR ADDR IS PASSED TO THIS ROUTINE IN XR4Y AND IT * 3017 * 
2902 * COMPUTES THE SEEK INFORMATION FROM WHERE THE HEAD * 00142C 0000 3018 DKRTY DC a fat DISKETTE RETRY COUNT 
2903 * PRESENTLY IS. * 00142E OO0A 3019 PCYLA DC A (DCPCY) CYLINDER HEAD PRESENTLY AT 
2904 * * 3021 20 a ag aR mo a IO a lok kak tok ack kakak bok ak 
2905 32 IG IG II a kook ak lok igigiokogokatok aoiaioak dak tokidoki koko aok ak BOQQ HRA I rR OR OK ER I OI a dak ak ak aki ak tk take oie ak ako 9k ic akc ak ak 
001276 2906 SEEK EQU * 3023 ** ok 
001276 6E08 142E 2°07 MVW PCYLA,R6 GET WHERE HEAD PRESENTLY AT 3024 **%* sim A RT DC P PATCH AREA KK 
O0O0127A 6C08 1326 2908 MVW DKR4, Ry GET SECTOR # GOING TO 3025 ** 1K 
00127E C020 0244 2909 HVB SECSZ,RO WHAT IS THE SECTOR SIZE 3026 32K OR pi Io lal ka aka aka dak foi kako ak aka ak ak ake ak 
001282 1803 2910 INZ SFO03 BR/256 BYTE SECTO 3027 2 II OR OR ik go roi ai oi agi i moi a dak kok ak akg ak ak ak dak ok 
001284 EC22 03C2 2511 DE SPT, R4 COMPUTE TRACK # (128 BYTE SECTOR) 001430 3028 DCPND EQU * 
001288 5005 2912 J SE16 SKIP OO147E 39029 OVST EQU C3800+5246 
00128A 2913 SEO3 EQU * 001430 00000000000000000 3030 PATCH DC (OVST-—DCPND) x00! PATCH AREA 
00128A EC22 03C3 2914 DB SPT1,R4 COMPUTE TRACK # (256 BYTE SECTOR) 3031 2 OR RO I IR Rok I oko ict dolor ok took a ak ak cake ak akc ak afc ak 
00128E 1302 2915 JEV SE10 BR/HFAD 0 3032 CR RO ICI CIO I I a GK ig aok giak ak aa kak i 2 ak af ok 
001290 7DA3 0100 2916 OWL THO56,R5 SET HEAD 1 IN H-R WORD 3033 ** *k 
001294 2917 SE10 EQU * 3034 ***x* EN D DC P PATCH AREA CK 
001294 340A 2918 SRL ONE, RY CONVERT TRACK # TO CYLINDER # 3035 ** oe 
001296 6COD 142E 2919 MVW RG,PCYLA SET WHERE GOING 3036 OC I I IO IO a GI oii roi I a II IR ok dak ak afi aka ak ake aka ak 
00129A 0501 2920 ABI ONE. R5 SFT RECORD NUMBER TO BE 1-15 3037 OCI IO IO IGOR I IOI ORIG IO ICI 2 IR ik gc aiak ac ak a a ak 2k ac ok a of af ak 
00129C 6C09 0244 2921 OW SECSZ, R4 SFT THE SECTOR SIZE BIT 3039 ORG C3800+5246 START DUMP STORAGE ROUTINE ADDRESS 
0012A0 D428 12DC 2922 MVD R4,SKh4 SET SEEK N/CYL, HEAD/SECT WORDS 3040 ek OC ca i GG ai iio iotalok kek fok kok a tag kk dak ak akc ake agai ak ak af aK aka ak 
0012A4 D428 12EC 2923 MVD R4Y,RDW4 SET READ MGey HEAD/SECT WORDS 3041 * *« 
0012A8 D428 12FC 2924 MVD R4Y,WRW4 SET WRITE N7cyt HEAD/SECT WORDS 3042 * NAME DSRTN 2k 
0012AC D428 12CA 2925 MVD R4,VFW4 SET VERIFY SerL, pepe ence WORDS 3043 * * 
0012B0 7C84 1000 2326 RBTWI FOORK, R4 RESET THE SECTOR SIZE BIT 3044 * PURPOSE DUMP STORAGE TO ALTERNATE CONSOLE * 
0012B4 768A 2927 SW R6,R4 GET NUMBER CYLINDERS TO MOVE 3045 * * 
0012B6 1103 2928 JP SE20 BR/POSITIVE DIRECTION 3046 * METHOD THE START ADDRESS OF THE AREA TO BE DUMPED IS * 
0012B8 7486 2929 CMR RY GET POS MOVEMENT 3047 * OBTAINED FROM STORAGE LOCATION X'O00O4' AND ° * 
0012BA 7C81 0800 2930 AWI TWOK,R4& SET REVERSE SEEK 3048 * THE END ADDRESS OF THE AREA TO oe DUMPED IS * 
0012RE 2931 SE20 FOU oh 3049 * CBTAINED FROM STORAGE LOCATION X*'0006'. * 
0012BE 6C0OD 12D8 2932 MVW SKW2 SET SEEK CONTROL WORD IN SEEK DCB 3050 * x 
0012C2 5700 2933 BXS 424) RETURN TO CALLING RTN 3051 * AIC GC RIC GIO a Ria aka kai gaictorc kak aki ae kaki tc akc ak * 
9935 « 3052 * NOTE * THIS ROUTINE WILL BE OVFRLAYED IF A REMOTE * * 
2936 * DISKETTE DCB'S 3053 * * DISPLAY STATION IS THE ALTERNATE CONSOLE TO P4 * 
2937 * 3054 * * BE ASSIGNED. * 
2938 * VERIFY DCB 3055 * RE NESTRE SS ONT ESENS EA AGEE RAO NORGE SETS ES * 
0012C4 Q000C 2939 VDCB DC x*000C*! DCB CONTROL WORD 3056 * x 
9012C6 0000 2940 DC A (0 SEEK CONTROL WORD 3057 * CALLING SEQUENCE * 
0012C8 0000 2941 DC A (0 FORMAT DATA WORD 3058 * * 
0012CA 0000 2942 VFW4 DC A (0 N/CYLINDER WORD 3059 * FROM THE ALTERNATE CONSOLE * 
0012CC 0000 2943 DC A (0 HEAD/SSECTER WORD 3060 * 30E2 FROM THE PROGRAMMERS CONSOLE 
N012CE 0000 2°44 DC A (0 CHAIN ADDRESS 3061 * * 
0012D0 0100 2945 DC A (256) BYTE COUNT 3062 * WHERE S OR OOE2 IS THE COMMAND TO DUMP STORAGE * 
0012D2 0000 2946 DC A re DATA ADDRESS 3063 * 
2947 * ECALIBRATE DCB 3064 2 OOO I OR CG ok da I iO i Ri oto gk kaloka iotak etalk aga 
0012D4 0007 2948 RECAL DC X*0007! 3065 * 
2949 EEK DCB 3066 * THE REMOTE DISPLAY OVERLAY WILL START HERE 
0012D6 8005 2950 SEDCB D x*8005! DCB CONTROL WORD 3067 * 
0012D8 0000 2951 SKW2 DC A (0 SEEK CONTROL WORD OO147E 3068 DSRIN Eeu * 
9012DA Q000 2952 C A (0 FORMAT DATA WORD OO147E 4020 0010 0284 3069 MVA oy eee SVCPT RESET SVC era 
331385 3098 zou SRM Be ANS ieabysteron "Goa gottas Gags 177° oy WWE Sosy Sen Bas” abn 
I R SET UP TO INSURE URXECUTION Is 
0012EO0 0000 2955 SKW6 DC A(O CHATS ADDRESS 00148A 6004 3072 SVC CHNGE ON LEVEL TWO 
001252 0000 2956 DC A (0 BYTE COUNT 00148C 6908 0004 3073 MVW DMPSA,R1 START DUMP ADDRESS 
0012E4 12E0 2257 ADDCB DC A (SK W6) CHAIN ADDR ADDRESS 001490 C122 03C3 3074 RBTB SPT1,f FORCE TO OUTPUT BOUNDRY 
2958 EAD DC 001494 3075 DSRT1 eou * 
0012E6 2009 2959 RDCB D x*20098 DCB CONTROL WORD 001494 4020 132E 3812 3076 MVWI DPSTG,DSCOD DUMP STORAGE MESSAGE CODE 
Q0012E8 0000 2960 RDW2 DC A (0 SEEK CONTROL WORD OO149A 4224 1330 3077 MV A DSBUF, R2 OUTPUT BUFFER ADDRESS 
QN012EA 9000 2961 DC A (0 FORMAT DATA WORD OO149E OB4O 3078 MV BI ERRK,&3 BLANK 
0012EC 0000 2962 RDW4Y DC A (0 N/CYLINDER WORD 001440 OCO09 3079 MVBI NINE,R4& COUNT 
OO12EE 0000 2963 DC A (0 HEAD/SECTOR WORD Q0014A2 690D 132C 3080 MVW R1 ASCDT STORAGE ADDRESS AS DATA 
0012F0 9000 2964 DC A (0 CHAIN ADDRESS OOT4A6 4020 14EC 132C 3081 MVA aseDT ASCIN RESTORE CONTROL BLOCK 
0012F2 0100 2965 DC A (2 a BYTE COUNT OO14AC 6A0D 14EE 3082 MVW ASCBF OUTPUT ADDRESS 
QO012F4 132C 2966 DC A (NBUF) DATA ADDRESS O0OO14B0 0202 3083 ABI THO g INCREMENT OUTPUT ADDRESS 


Lo 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
aoa ae 88A8 14E8 0002 3084 MVW DSBNK, (R2 TWO) PUT IN BLANK SPACER 3206 * FOLLOWING A SYSTEM RESET AND START = 
0014B8 4724 14BA 3085 MVA  ASCTB,R7 CONTROL BLOCK ADDRESS 3207 * * 
0014BC 3086 DSRT2 EOU * Z208 KEKE EKHK AKER EKER EKKEEEEKKEKKEEKKEEEKEKEEEKKEEEKECEEERKEEKERKESEKEEKEEE EKER EEE 
OO14BC 601A 3087 stC HTOF CONVERT 3209 ALIGN WORD 
OO14BE 0204 3088 ABI FOUR,R2 INCREMENT BUFFER ADDRESS 001794 00 3210 ACFCS DC X* 00! ALT CONSOLE CONTROL FLD 3 
0014C0 C398 3089 MVB  =-R3, (R2)+ PLACE BLANK AND INCREMENT 001795 00 3211 ACIMS DC X'00! ALT CONSOLE CONTROL FLD 4 
0014C2 C398 3090 MVB  ~=R3, (R2)+ PLACE BLANK AND INCREMENT 001796 00 3212 CICNT DC X00? COUNT OF ACTIVE CICB®S 
0014C4 690D 14EC 3091 MVW R1,ASCIN STORAGE DATA ADDRESS 001797 00 3213 DC x00! SPARE 
0014C8 6A0D 14EE 3092 MVW R2,ASCBFP OUTPUT BUFFER ADDRESS 001798 00 3214 INPRC DC X'00! IND OUT/IN IN PROCESS 
0014CC 0102 3093 ABI TwO,R1 INCREMENT STORAGE ADDRESS 001799 00 3215 DC X'008 
OO14CE BCF6 3094 JCT  DSRt2,R4 REST OF LINE 00179A 0000 3216 GRPT DC A (9) ALT CONSOLE CONTROL FLD 5 
0014D0 O1FE 3095 ABI M2,R1 CORRECT STORAGE ADDRESS 00179B 3217 GRPT1 EQU GRPT+ONE 
0014D2 C085 3096 MVBZ (B2) RO TERMINATION CHARACTER 00179C 0000 3218 PRISW D A(0 ALTERNATE CONSOLE BUSY 
OO14D4 4724 17F2 3097 MVA STG,R7 CONTROL BLOCK ADDRESS 00179E 0000 3219 ENTSW DC AO ALT CONSOLE CONTROL FLD 6 
0014D8 6000 3098 SVC OUT PRINT LINE 0017A0 0000 3220 ACWCT DC A (0 ALT CONSOLE CONTROL FLD 7 
OO14DA 7127 3099 IR R1,R1 WRAP AROUND STORAGE ADDRESSES 0017A2 0000 3221 DEAT DC A (0 ALT CONSOLE CONTROL FLD 8 
0014DC 1003 3100 JZ pskr3 BR/YES-TERMINATE DUMP 0017A4 0000 3222 HRTA DC A (0 PRG CHK ADR FOR DIAG 
OO14DE C924 0006 3101 CW DMPEA,R1 DUMP COMPLETE 0017A6 3223 CNTBK EQU * 
O014E2 17D8 3102 JLLT DSRT1 BR/NO CONTINUE 0017A6 0001 3225 INVT1 D A ONE) BYTE COUNT 
OO14E4 3103 DSRT3 EQU) * O017A8 1724 3226 INVT2 DC A (PRTBU ADR OF DATA TO CONVERT 
OO14E4 6802 0610 3104 B RETRN RESTART PACKAGE OO17AA 1724 3227 INVT3 DC A (PRTBO TARGET AREA 
3105 * 0017AC 0002 3229 HLTCV DC A (TWO BYTE COUNT 
3106 * DUMP STORAGE DATA CONVERSION CONTROL BLOCK OO17AE 180A 3230 DC A(RTN ) ADR OF DATA TO CONVERT 
3107 * 0017B0 17D5 3231 DC A (MSGBA) TARGET AREA 
OO14E8 4040 3108 DSBNK DC ct. BLANK 001782 0002 3233 HALCV DC A TWO) BYTE COUNT 
OO14EA 0002 3109 ASCTB DC A (2) DATA BYTE COUNT 0017B4 180C 3234 DC A (CKP ADR OF DATA TO CONVERT 
0014EC 0000 3110 ASCIN DC A (¥=* DATA ADDRESS 0017B6 17DF 3235 DC A (MSG9 TARGET AREA 
OO14EE 0000 3111 ASCBF A (*-* BUFFER ADDRESS 0017B8 FF 3237 PGCTL DC AL1 (255 DISPLAY PAGE CONTROL - INITIALLY ON 
3113 0 C3800+5360 START ALTERNATE CONSOLE ADDRESS 0017B9 00 3238 PGLCT DC AL1(0) DISPLAY PAGE CONTROL - LINE COUNT 
BUT A A RK eK kK tk Ro Kt a KR tO kK KKK IO 4 tk Kf KK kf foak ok 0017BA 0000 3240 SPARE DC A(0O NOT USED 
3115 * * .0017BC 0000 3242 RPSV DC A of MESSAGE ADDRESS SAVE AREA 
3116 * NAME ALTERNATE CONSOLE SUPPORT * 0017BE 0000 3244 IDCB DC A sal ADDRESS OF LAST IDCB ISSUED BY DCP 
3117 * * 0017CO 3810 3246 DC A (RPC 2) ERROR CODE 
3118 * PURPOSE THIS AREA WILL BE OVERLAYED AT INITIALIZATION WITH * 0017C2 DS5D640D9C5D7D3F84 3247 RPG2 DC C*'NO REPLY EXP! 
3119 * THE ALTERNATE CONSOLE SUPPORT ROUTINE. * 0017CE 0080 3248 DC x*'0080! EOM AND DCP MSG CNTL PLD 
3120 * * 0017D0 4OD4C1D77E 3250 MSG8_ DC C' MAP=' 
3121 * THE ALTERNATE CONSOLE ROUTINE WILL WORK IN CONJUNCTION * 0017D5 EVETETE740 3251 MSG8A DC C'*xxxx ' 
3122 * WITH THE PROGRAMMERS CONSOLE. ALTERNATE CONSOLE DEVICES * QOO17DA E2E3CSD77E 3252 MSG9_ DC C'STEp=" 
3123 * SUPPORTED ARE THE TTY, DISPLAY STATION, PRINTER AND REMOTE * OO17DF EVE7ETE740 3253 MSG9A DC C'XXXx ! 
3124 * DISPLAY STATION. * 0017F4 00C0 3254 DC X*00CO! KOM AND DCP MSG CNTL FLD 
3125 * * 0017E6 17C2 3256 RPRL2 DC A (RPG2) ADDRESS OF MESSAGE 
3126 * IF THE REMOTE DISPLAY IS SELECTED AS THE ALTERNATE CONSOLE * 0017E8 0000 3258 INTAD DC A (*-* ALT CON INT ADDR SAVE AREA 
3127 * THEN THE DUMP STORAGE ROUTINE WILL ALSO BE OVERLAYED FROM * OO17EA O55E 3260 ACPRG DC A (PRG POINTER TO PROGRAM NAME 
3128 * THE POINT INDICATED. * OO17EC 0563 3261 ACPRS DC A (PRGN5) AND LAST CHARACTER 
3129 * * QO017EE 0000 3263 FNDPG DC A (*-* ADDRESS OF PROG TO BE FOUND 
3130 2 oR a tok Rok OR IO A RO OOO ICR OK OK qo i fa kok ik lok kok iokak tok tok kok ak 0017FO 0080 3265 DC X "0080! DCP MSG CNTL FLD 
0014F0 3131 ALTCS EQU) * 0017F2 1330 3266 DSTG DC A (DSBUF) ADDRESS OF MESSAGE 
3133 ORG C3800+5922 START ALTERNATE CONSOLE DATA 0017F4 0000 3268 SAV DC A (0 REGISTER 
SVS mK aK OK a KK KK kok Kk kok kkk kok kkk koko ak tok ak tok kkk tok ke ok ak ak ade ak ok 0017F6 0000 3269 SAV2 DC A (0 SAVE 
3135 * * OO17F8 0000 3240 SAVE7 DC A (0 AREAS 
3136 * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS REQUIRED * OO17FA 3801 3272 DC A (ACNG) ERROR CODE 
3137 * FOR THE ALTERNATE CONSOLE ROUTINE WHICH WILL BE READ * Q017FC 00CO 3273 ACNG1 DC X*00CO EOM AND DCP MSG CNTL FLD 
3138 * INTO STORAGE AS OVERLAYS. * OO17FE 17FC 3275 ACNGM DC A {ACHG 1) ADDRESS OF MESSAGE 
3139 * THE CONSTANTS IN THIS AREA MUST REMAIN IN THE SAME * 3277 ORG C3800+6144 ORIGIN FOR DIAGNOSTIC PROGRAM 
3140 * STORAGE LOCATIONS BECAUSE OF PROGRAM INTERFACES. * B2TB a A FR a HR a OR a FO 2 2 2 2 IC I I RC i OC CC ae aie Co aK a Ok VE EEARA EVES TREE TSS OES ECEST 
3141 * * 3279 * * 
3YGD A eo Ro OK OR OR OO RIC IO FO I kk fe gogo ak dak ak ote ke toi ic aft ofc ok aca ic 3280 * THE FOLLOWING ROUTINE IS ENTERED IMMEDIATELY AFTER LOADING * 
3143 * PRINT BUFFER 3281 * THE ROUTINE DETERMINES THE STG SIZE, IF A TTY IS TO BE * 
3144 ALIGN WORD 3282 * SED AND WHICH DISKETTE FILE IS ASS{GNED TO THE USER. * 
001722 ODOA 3145 CRPRT DC X*ODOA* 3283 * CONTROL Is THEN PASSED TO RESTR * 
001724 40404040404040404 3146 PRTBU DC 66c! ' 66 CHARACTER PRINT BUFFER 3284 * * 
00172F 3147 PRTIBF EOQU PRIBU4+FLEVN 3285 kok i ko ok kK oko uke uk io kok kak ok ik i tak i gai kak ic ak ke gi te ke eat teak iki ak a ak ie ice ak 
001730 3148 PRBUF FOU PRTBU+TWELV 3286 * TO OVERLAY INITIALIZATION 
3150 3 oo CR OK OR IO OR ao a ok aC oii iaiok ak tak ick kc ak a ak ak ak 3287 * ROUTINE. 
3151 * * 3288 * DUMMY PROGRAM HEADER 
3152 * ALTEPNATE CONSOLE ROUTINE ENTRY POINTS * 3289 * 
3153 * * 001800 F3F8FOFO 3290 PID DC CL4*3800! PROGRAM TDENTIPIER 
BUSY HR RK ok oo kk kk tok sok io ok ak tok dak oki gk kk Xe ateate ak afc ake ae ake te afc afc akc oi ak 2k 001808 3291 DEVPT EQU PID+EIGHT DEVICE TABLE ADDRESS 
001766 0000 3155 ACMSG DC A (*-* ADDRESS TO OUTPUT ENTER MESSAGE 00180A 3292 RTNE Eu PID+TEN CURRENT ROUTINE HUMBER 
001768 0000 3156 ACENT DC A (*=* ALTERNATE CONSOLE RTN 00180C 3293 CKPT EQU PID+TWELV CURRENT CHECK POINT NUMBER 
00176A 0000 3158 ACINT DC A (*=* ALT CON INRPT RTN 3294 * 
3160 2% 4 OK IRI OR II IR IIR OR BOR ok ako kak ik tok ok 001804 3223 OVLAY EQU * START FOR STOP CODE OVERLAY 
- 3161 * * * 
3162 * THE FOLLOWING ARE THE IDCB'S USED BY THE ALTERNATE CONSOLE. * 3298 * EQUATES USED FOR INITIALIZATION 
3163 * THE DEVICE ADDRESS WILL BE INSERTED AT INITIALIZATION TIME. * 3299 * 
3164 * * 000030 3300 ADEVT EQU 48 DEVICE INTRPT VECTORS START ADDRESS 
3165 #4 ok Rk ok lo oko gogo kao ek ak dak kok ic io i fee te kc tk feat ake ak afc af ake ke akc aa ofc ak 2k 001E00 3301 DSOVA EQU 7680 ALT CONSOLE OVERLAY START ADDRESS 
3166 ALIGN WORD 000106 3302 DSKID EQU  x'0106! 4964 HARD WIRED READ TD 
00176C 5000 3167 WIDCB DC X*50008 ALTERNATE CONSOLE WRITE 000126 3303 PELID EQU xX'0126! 4966 HARD WIRED READ 
00176E 0000 3168 DC X*'0000' 000100 3304 PSCSZ EQU 256 4966 SECTOR SIZE - 256) BYTE SECTOR 
001770 5000 3169 CIDCB DC X'5000! ALTERNATE CONSOLE SPECIAL 000020 3305 BASPR EQU 32 BASIC PROCESSOR MASK 
001772 Q00D 3170 DC X*QOOD* 000022 3306 PRC22 EQU 34 PROCESSOR 
001774 6F00 3171 ACRES DC X*6FO0! ALTERNATE CONSOLE RESET 000008 3307 P22cCT EQU- 8 DELAY COUNT 
001776 0000 3172 DC X'00008 000023 3308 PRC23 EQU 35 PROCESSOR 
001778 1000 3173 RIDCB DC X*1000! ALTERNATE CONSOLE READ 000029 3309 P23CT EQU 41 DELAY COUNT 
00177A 0000 3174 DC X*00008 3310 * 
00177C 6000 3175 ACPRE DC X*'6000! ALTERNATE CONSOLE PREPARE-LEVEL 2 3311 * 
00177E 0005 3176 DC X'0005" 3312 *** DO NOT MOVE THESE TWO INSTRUCTIONS #33 oR OR ie & 
00176F 3177 WIDC3 zou WIDCB*THREE 3313 * * 
001778 3178 RIDC3 EQU RIDCB+THREE 001804 5000 3314 DLYIN J DLYI1 THESE TWO INSTRUCTIONS ARE USED TO * 
00177D a1 ACPR1 E uy ACPRE* ONE 001806 4C11 3313 DLYI1 TBT (R4,SEVTN) ADJUST THE IDLE5 TIME - OVERLAY : 
3182 BRR RK RK KK KK RK kK Rk kok kk ko ak kK tO dK KK tok kok kok tc kk kk ocak ak BOTT BH RK RK RK HH HK he 2 2 a 2 2 2 ee 2 2 i i a 2 2 a 2 a a a i a ke teak ek ak tk kk aK ak ok 
3183 * * 3318 * 
3184 * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS REQUIRED * 3319 *** DO NOT MOVE THIS CONSTANT 73322 262 fb I ORE dR OK tok & 
3185 * FOR THE ALTERNATE CONSOLE ROUTINE AND SHARED BY DCP. * 3320 * * 
3186 * THE CONSTANTS IN THIS AREA MUST REMAIN IN THE SAME * 001808 3D00 3321 TREDG DC X*3D00° SAVE THIS CONSTANT * 
3187 : STORAGE LOCATIONS BECAUSE OF PROGRAM INTERFACES. : 00180A 0000 3322 DC A (0) SAVE THIS CONSTANT : 
3189 4 ak kk ke ok a RK tok ck io tok aa tak kk i ike eka ake ak a afc ote 2c fe ok ok ak akc 2c BOQ HK MA HA HR HR HK he A a 2 aK ee eR 2K a a 2 2 i a 2 2 2 kK 2 i i i a i ti ac age ak aie fc akc ak 
001780 O57E 3190 ACSCH DC A (SCHED ADDRESS OF SCHEDULER ROUTINE 3325 * ALTERNATE CONSOLE OVERLAY - SVC READI CONTROL BLOCK 
001782 0234 3191 ACIND DC A (INDIC DCP INDICATORS 3326 * 
001784 0010 3192 ACSVP DC A (SVCPT SVC INTRPT POINTER 3327 ALIGN WORD 
001786 O7D4 3193 ACSVR DC A(SVCRT SVC_ RETURN 00180C 00 3328 DC X00! END INDICATOR 
001788 ODB4 3194 ACOPC DC A (OPCMD OPERATOR COMMAND ROUTINE 00180D C3F3F8F0C3 3329 DS20V DC C'c380c' SPECTAL DISPLAY OVERLAY 
00178A OQO8A4 3195 ACCON DC A (CONSO CONSOLE ROUTINE 001812 0000 3330 DC A (*-* NEXT AVAIL STORAGE 
00178C 0378 3196 ACSTR DC A(STRIT STRAY INTERRUPT ROUTINE Z33Q HH MH HH He HR He He RK A a 2 i i a ee i 2 a i i i a i i tak kk i i ke a ik 
00178E 0000 3197 ACVTR DC A (*—*) ALT CON VECTOR ADDR-INIT 3333 * 
001790 0000 3199 PRBA DC A (0 ALT CONSOLE CONTROL FLD 1 3334 * DETERMINE DISKETTE TYPE AND INSURE PROPER I/O SEEK CODE 
001792 01 3200 NLSW DC X"Or ALT CONSOLE CONTROL FLD 2 3335 * 
001793 01 3201 OUT1 DC X'o1e SVC OPEPAND FOR OUTIN SVC 3336 ALIGN WORD 
B2O3 A KA MH HR RR HH KK FO OR IO OK IKK RR RK ok ko kok tek ok ie ak tok ok 001814 3337 INIT EQU * 
3204 * * 001814 C020 0233 3338 MVB DKAD,RO DISKETTE ADR 
3205 * THE FOLLOWING ARE SWITCHES THAT MUST BE RESET TO ZERO * 001818 7804 FFOO 3339 RBTWI HFFOO RESET HIGH ORDER BYTE 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00181C OBOY 3340 MVBI FOUR,R3 NUMBEP IDCB DISKETTE 0019AC 6802 O5SB2 3454 B RESTR GO TO RESTAPT ROUTINE 
00181E 4124 1307 3341 MVA SEIDA, R1 ADDR 1ST IDCB 3456 * 
001822 3342 IDSK BU 3457 * 4966 SEEK ROUTINE OVERLAY 
001822 CO48 3343 MVB 20 ots R MOVE DEVICE ADDR INTO IDCB 3458 * 
001824 0104 32344 ABI UPDATE TO NEXT IDCB 0019R0 3459 PSEEK Bou * 
001826 RBFD 3345 JCT TOSk DO ALL IDCB 0019B0 6C08 1326 3460 MVW DKR4Y,RY GET SECTOR # GOING TO 
001828 3009 3346 SLL ONE bao WORD DISPLACEMENT 0019B4 cCc020 0244 3461 MVB SECSZ, RO . WHAT IS THE SECTOR SIZE 
00182A 0030 3347 ABI ADEVT, RO DISPLACE INTO VECTOR TABLE 9019B8 1803 3462 JINZ PSEO3 BR/256 BYTE SECTOR 
00182C 4000 0246 3348 MVA DKINT, { INTERPUPT ADDRESS OO19BA C22 03C2 3463 DB SPT, R4 COMPUTE TPACK # (128 BYTE SECTOR) 
001830 4020 0246 1246 3349 MVA DSKIT, Ako Wi MOVE IN DISKETTE INT ADR Q0019BE 5005 3464 J PSEN0 SKIP 
3350 * 0019C0 3465 PSEO3 EQU 
001836 402F 0230 0126 3351 cwi PELID, LASAD IS IPL SOURCE A 4966 0019CO EC22 03C3 3466 DB SPT R4 COMPUTE TRACK # (256 BYTE SECTOR) 
00183C 1811 3352 JNE IDSKO BR/NO - ASSUME 4964 0019C4 1302 3467 JEV PSE16 BR/HEAD 0 
00183E 4020 0244 0100 3353 MVWI PSCSZ,SECSZ SECTOR SIZE CONSTANT FOR 4966 0019C6 7C83 0800 3468 OWI TWOK, RY SET HEAD 1 - POS/HEAD/CYL WD 
001844 4724 0032 3354 MVWI PSLEN,R7 LENGTH OF SEEK OVERLAY 0019CA 3469 PSE10 EQU 
001848 4124 1980 3355 MVA  PSEEK,R1 SEEK ROUTINF OVERLAY ADDRESS 0019CA 7C83 1000 3470 OWL POURK RY SET DISKETTE POS # - Po Rauenae ees WD 
00184C 4224 1276 3356 MVA SEEK, k2 SEEK ROUTINE ADDRESS 0019CE 340A 3471 SRL RA CONVERT TRACK # TO CYLINDER 
001850 2944 3357 MVFN (Rt) (R2) MOVE ROUTINE 0019D0 90501 3472 ABI ONE, HS SET RECORD NUMBER TO BE 1- Pad 
001852 4724 0032 3358 MVWI DLEN,R7 LENGTH OF DCB OVERLAY 0019D2 6D09 0244 3473 OW SECSZ,R5 SET THE SECTOR SIZE BLT 
001856 4124 192 3359 MVA PDCB,k1 DCB OVERLAY ADDRESS 0019D6 7564 3474 MVW R5,R3 CHANGE REGISTEPS 
00185A 4224 12D4 3360 MVA RECAL, R2 DCB ADDEESS 0019D8 D328 12E8 3475 MVD R3,RDW2 SET READ N/SECT, POS/HEAD/CYL WORDS 
00185EB 2944 3361 MVFN (R1), (R2) MOVE DCB 0019DC D328 12F8 3476 MVD R3,WRW2 SET WRITE N/SECT POs /SHEAD/CYL WORDS 
3362 * 0019EO0 5700 3477 BXS (R7) RETURN TO CATLING RT 
001860 3363 IDSKO BOU * 001982 3478 PSEND EQU * 
001860 0900 3364 MVBI ZERO,R1 SET TO OK BLOCK 000032 3479 PSLEN EQU PSEND-PSEEK 
001862 6B08 1800 3365 MVW PID, &3 GET DCP SIZE 3480 * 
001866 3366 IDSK1 EOU * 3481 * 4966 DCB OVERLAY 
001866 5924 O4S9A 3367 SESK R1,HEX00 SET DCP STORAGE KEY OF 0 3482 * 
00186A 0101 3368 ABI ONE, R1 UPDATE CORE BLOCK ADDR 3483 * RECALIBRATE HOME DCB 
00186C BBFC 3369 JCT IDSK1, R3 BR/DO REST 0019E2 0001 3484 PDCB DC X'0001' DCB CONTROL WORD 
00186E 0C00 3370 MVBI ZERO, k4 RESET CONSOLE LIGHTS TO ALL 3485 * SEEK DCB 
001870 7890 3371 SECON R4& OFF 0019E4 0000 3486 DC x'oooor DCB CONTROL WORD - NOT USED 
001872 4024 05B2 3372 MVA RESTR,FO RESET THE RESTART ADDR TO THE 0019E6 0000 3487 DC A(0 N/SECTOR WORD 
001876 680D 0002 3373 MVW RO, SDCP2 RESTART RTN 0019=8 0000 3488 DC A (0 DISKETTE POS # /HEAD/CYLINDER WORD 
3374 x 0019EA 0000 3489 DC A (0 FORMAT DATA WOR 
3375 * TEST FOR ALTERNATE CONSOLE SUPPORT AND TYPE 0019EC 0000 3490 DC A (0 RESIDUAL STATOS. ADDRESS 
3376 * AND SAVE CPU MODEL NUMBER NO19FE 0000 3491 DC A (0 CHAIN ADDRESS 
3377 * 0019FO 0000 3492 DC A (0 BYTE COUNT 
Q00187A 4020 17EE O3CF 3378 MVA CFGN1,FNDPG ADR OF NAME OF DATA SET TO FIND 0019F2 1308 3493 DC A(D a TDCB DCB ADDRESS 
001880 4724 0234 3379 MVA INDIC,R7 ADR OF DCP INDICATORS 3494 * READ DCB - AUTO SEEK 
001884 4FU4E 3380 TBTS P7,CNRUN IND CONFIG TABLE REQ 0019F4 2810 3495 DC X'2810! DCB CONTROL WORD 
001886 4F84 3381 TBTR R7,LODED RESET THE LOADFD BIT 9019F6 0000 3496 DC A (0 N/SECTOR WORD 
001888 40270 O3F4& 1892 3382 MVA ALTOO,CNFRT RETURN ADR 00198 0000 3497 DC A (0 DISKETTE POS # /HBAD/CYLINDER WORD 
00188E 6802 OFF2 3383 B LP06 GO GET THE TABLE OO19FA 0000 3498 DC A (0 FORMAT DATA WOR 
001892 3384 ALTOO EQU * 0019FC 12Cc4 3499 DC A (VDCB) RESIDUAL STATUS O ADDRESS 
001892 0OA20 3385 MVBI BASPR,R2 PASIC PROCESSOR MASK 0019FE 0000 3500 DC A 9) CHAIN ADDRESS 
001894 6504 3386 DIAG FOUR GET THE PROCESSOR TYPE 901A00 0100 3501 DC A (2 Sy BYTE COUNT 
001896 7201 3387 OW R2,R0 SET THE DEVICE TYPE 0O1A02 132C 3502 DC A (DBU ) DATA ADDRESS 
001898 C028 0232 3388 MVB RO,PRTYP SAVE IT IN LOW STORAGE 3503 * WRITE/READ VERIFY DCB - AUTO SEEK 
00189C F023 3389 CBI PRC23,R0 TS THIS A TYPE 23 PROCESSOR 001A04 0822 3504 DC X'0822! DCB CONTROL WORD 
90189R 1804 3390 JNE ALTO1 BRANCH IF NOT 001806 0000 3505 DC A (0 N/SECTOR WORD 
001840 4020 O9EO 0029 3391 MVWI P23CT,DLYCT SET DELAY COUNT FOR PROCESSOR 23 OO1A08 9000 3506 DC A (0 DISKETTE POS pepe URI NDPR WORD 
0018A6 5008 3392 J ALTO2 CONTINUE OO1A0A 0000 3507 DC A (0 FORMAT DATA WO 
0018A8 3393 ALTO1 BQU * OO1A0C i12C4 3508 DC A (VDCB) RESIDUAL STATUS > ADDRESS 
0018A8 F022 3394 CBI PRC22, RO IS THIS A TYPE 22 PROCESSOR OO1A0E 0000 3509 DC A o} CHAIN ADDRESS 
OO18AA 1806 3395 JNE ALTO2 BRANCH IF NOT 001A10 0100 3510 DC A (256 BYTE COUNT 
0018AC 4020 O9EO 0008 3396 MVWI P22CT,DLYCT SET DFLAY COUNT FOR PROCESSOR 22 001A12 132C 3511 DC A (DBUF) DATA ADDRESS 
0018B2 9028 1804 O9F6 3397 MVD DLYIN,DFLY1 REPLACE INSTRUCTIONS - ADJUST 001A14 3512 PDEND EOQU * 
0018B8 3398 ALTO2 EQU * 000032 3513 PDLEN EQU PDEND-PDCB 
001888 4124 133A 3399 MVA DEUFtIHDLP,R1 MOVE PAST HEADER 001814 3514 END INIT ADDR OF INITIALIZATION RTN 
0OO18BC 4724 O24E 3400 MVA DCPOS R7 ADR OF EXTRA DCP INDICATORS 
0018cO 812B 0011 1808 3401 CB (R1 CBD) , TREDG IS THIS A FLP ENTRY 
0018C6 1004 3402 JE ALTOA J-YES 
0018C8 812B 0021 1808 3403 CP (R1,CUDDD) , TPEDG TS THIS A FLP ENTRY 
0018CE 1801 3404 INE  ALTORB J-NO 
0018D0 3405 ALTOA EQU * 
0018D0 4F4O 3406 TBTS (R7,ZERO) SET THE INDICATOR 
001802 3407 ALTOB EQU * 
0018D2 F043 3408 MVWS (Ri CUDD4) , PO GET STORAGE SIZE 
0018D4 7803 3000 3409 OWL 3060,R0 INSURE AT LEAST 16K 
0018D8 680D 0230 3410 MVW RO, LASAD STORE IT IN LOW STORAGE 
0018NPC EO4Y4 3411 MVWS R1,CUDD6) ,RO GET CONSOLE DEVICE ADDRESS/TYPF 
0018DE C160 OOOA 3412 MVB R1,CUDD8) ,k1 GET FEMOTE SUB-ADDRESS 
0018E2 6802 1950 3413 B ALTO3 BRANCH OVER PATCH AREA 
00186 3414 INEND EQU * 
001950 3415 ACCHG EQU C3800+6480 
0018E6 00000000000000000 3416 PTCH1 DC AACCHG” TNEND) x oo: 
3417 ORG 3800+6480 
901950 3418 ALTO3 EQU * 
001950 7007 3419 IR RO,RO IS THERE AN ENTRY 
001952 6800 195F 3420 BZ ALTOY B-NO--NO ALT DEV 
001956 680D 0240 3421 MVW RO,OPADR SAVE DFVICE ADDRESS/TYPE 
00195A C128 O24B 3422 MVB R1,OPSUB SAVE REMOTE SUB-ADDRESS 
00195E 3423 ALTOY EQU * 
00195E 4724 180D 3424 MVA DS20V,R7 ADDRESS OF OVLY RTN NAME 
001962 601F 3425 SVC READI READ IT 
001964 75A7 3426 IR R5,R5 OVERLAY RIN FOUND 
001966 1804 gn21 : JNZ ALTOS BR/YES - GO TO OVERLAY 
001968 6F03 1£E00 3429 BAL DSOVA,R7 BRANCH TO ALTERNATE CONSOLE OVFRLAY 
00196C 5001 3431 J ALTOS BR/ERROR RET —- NO ALTERNATE CONSOLE 
001968 5006 3432 J ALTO6 BR/GOOD RET - ALTERNATE CONSOLE 
001970 3433 ALTOS EQU * 
001970 c825 0240 3434 MVWZ OPADR,RO RESET ALTERNATE ASSIGNMENT 
001974 1003 3435 JZ ALTO6 EBR/NO ALTERNATE CONSOLE ASSIGNED 
001976 4724 17FE 3436 MVA ACNGM,R7 ADDRESS OF ALTERNATE BAL CODE 
00197A 6000 3437 SVC our PUT IT IN THE LEDS 
00197C 3438 ALTO6 EQU * 
00197C 4724 0234 3439 MVA INDIC,R7 ADDRESS OF DCP INDICATORS 
001980 4F84 3440 TBTR R7,LODED) RESET PROGRAM LOADED INDICATOR 
001982 6301 3441 DIS M DISABLE MASKS 
001984 0864 3442 MVBI STPCD,RO GET THE STOP CODE 
001986 4424 1804 3443 MVA OVLAY,R4 GET THE END OF DCP 
00198A 6F08 0230 3444 MVW LASAD,R7 LAST ADDRESSABLE WORD 
00198E T7FE3 3FFE 3445 OWL H3FFE,R7 ADJUST THE RIGHT SIDE 
001992 74EA 3446 SW RY,R7 RYTE COUNT 
001994 8828 19AA 1730 3447 MVW ALTO7, PRBUF MOVE INSTRUCTIONS 
00199A 9028 19AC 1732 3448 MVD ALTO8, PRBUFtTWO TO ANOTHER AREA 
001980 4020 OOOEF O5R2 3449 MVA RESTR, PCKSI SET A NEW PCK START ADR 
001946 6802 1730 3450 B PRBUF GO EXECUTE THEM 
OO19AA 3451 ALTO7 EOQU * 
OO19AA 288C 3452 FFN RO, (R4) SET THE REST OF STG TO STOP CODE 
0019AC 3453 ALTOS EQU * 
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ATTRIBUTES AND REFERENCES 

a ADDRESS. HEX LOCATION (00001950) 
ADDRESS. HEX LOCATION (00001768) 
ADDRESS, HEX LOCATION (00001794) 
ADDRESS. HEX LOCATION (00001766) 

ghBSOLUTE. HEX VALUE (00003801) 
ADRESS. HEX LOCATION (000017FE) 
a ADDRESS. HEX LOCATION (000017FC) 
ADDRESS. HEX LOCATION (0000177C) 
ADDRESS. HEX LOCATION (00000E32) 
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LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
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LENGTH (12) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (36) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


C3800 - DIAGNOSTIC CONTROL PROGRAM (DCP) 


DECLARED 


2570 
2583 
2585 
2592 
2604 
2613 
2985 
620 
122 
213 
1342 
58 
1351 
270 
1569 
1575 
1581 
1588 
3212 
277 
3293 
572 
445 
554 
555 
556 
635 
110 
3223 
600 
592 
558 
560 
593 
1239 
1242 
1244 
1249 
1259 
1265 
540 
105 
1218 
433 
434 
624 
365 
366 
1162 
1195 
1201 
301 
302 
292 
294 
296 


NAME 
B12 
B40 
Bu 
B42 
B43 
Bay 
CALIB 
CFGN1 
CHARS 
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CHNG 
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CHNG1 
CICBT 
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ADDRESS. HEX LOCATION (000010A8) 
“RDDRESS. HEX LOCATION (000010C2) 
ADDRESS. HEX LOCATION (000010C4) 
2590 2612 
ADDRESS. HEX LOCATION (0000106) 
oADDRESS. HEX LOCATION (000010F4) 
HEX LOCATION (00001106) 
HEX LOCATION (0000130A) 
RESS, HEX LOCATION (000003CF) 
OLUTE. HEX VALUE (000000E2) 
OLUTE. HEX VALUE (00000008) 
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HEX LOCATION (00000372) 
X LOCATION (00000376) 
Xk LOCATION (000003A2) 
HEX LOCATION (00000964) 
k LOCATION (0000096A) 
RESS. HEX LOCATION (00000962) 
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RESS. HEX LOCATION (000009A2) 
RESS. HEX LOCATION (00000362) 
OLUTE, HEX VALUE (00000009) 
RESS. HEX LOCATION (00000926) 
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LENGTH (1) 
LENGTH (1) 
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LENGTH (6) 
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CUDT 
C3800 
DBUF 


DCBAD 
DCBCV 
DC HAR 
DC PCY 
DC PND 
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DELAY 
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DELYS5 
DEVAD 
DEVPT 
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DRSVA 
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DSBUF 
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DSKIT 
DSKPR 
DSKPD 
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DSK10 
DSK 20 
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DSRTN 
DSRT1 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 
3412 
ABSOLUTE. HEX VALUE (00000001) 
CSECT. S ART (00009000) LENGTH (6676) ESDID (1) 
3. 3029 3039 3113 3133 3181 3277 3415 17 
ADDRESS. HEX LOCATION (0000132C) IN CSECT(C3800  ) LENGTH (2) 
410 87 986 2373 2387 2836 2966 2975 3012 
3013. 3014 3399 3502 3511 
ghDBRESS. HEX LOCATION (00001308) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00000394) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. _HEX LOCATION (000003CD) IN CSECT(C3800 ) LENGTH(1) 
a ABSOLUTE. HEX VALUE (00000008) 
ADDRESS. HEX LOCATION (00001430) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00000516) IN CSECT(C3800 ) LENGTH(4) 
a ABRRESS. HEX LOCATION(0000024E) IN CSECT(C3800 ) LENGTH (2) 
ADDRESS. HEX LOCATION (000009DA) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS, HEX LOCATION (000009E6) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION(O000009E2) IN CSECT(C3800 ) LENGTH(1) 
> ADDRESS. HEX LOCATION (000003A6) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001808) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00000357) IN CSECT(C3800 ) LENGTH(1) 
1085 1555 2146 
ADDRESS. HEX LOCATION (00000356) IN CSECT(C3800 ) LENGTH(2) 
529 1086 1556 155 49 
BBDRESS: HEX LOCATION (00000233) IN CSECT(C3800 ) LENGTH(1) 
jARDRESS. HEX LOCATION (0000132C) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS, HEX LOCATION(00000246) IN CSECT(C3800 ) LENGTH(2) 
1625 1660 2870 2887 2891 3348 3349 
5 ADDRESS. HEX LOCATION (00001314) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001312) IN CSECT(C3800 ) LENGTH (2) 
a ADDRESS. HEX LOCATION (0000142C) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001326) IN CSECT(C3800 ) LENGTH(2) 
oADDRESS.. HEX LOCATION (00001328) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00001314) IN CSECT(C3800 ) LENGTH(2) 
2839 2840 2883 
5 ADDRESS. HEX LOCATION (00001316) IN CSECT(C3800 ) LENGTH(2) 
> ADDRESS. HEX LOCATION (00001250) IN CSECT(C3800 ) LENGTH(1) 
> ADDRESS. HEX LOCATION (00001254) IN CSECT(C3800 ) LENGTH(1) 
ARDRESS. HEX LOCATION (00001264) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS. HEX LOCATION (000009E0) IN CSECT(C3800 ) LENGTH(2) 
1325 3391 3396 
ADDRESS. HEX LOCATION(00001804) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001806) IN CSECT(C3800 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00000208) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00000006) IN CSECT(C3800 ) LENGTH(2) 
gABRESS. HEX LOCATION (00000004) IN CSECT(C3800 ) LENGTH(2) 
ABSOLUTE. HEX VALUE (00003812) 
ADDRESS; HEX LOCATION (00000332) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00000340) IN CSECT(C3800 ) IENGTH(2) 
ADDRESS, HEX LOCATION (00000356) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00000344) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (0000034A) IN CSECT(C3800 ) LENGTH(2) 
ADDRESS. HEX LOCATION (000014E8) IN CSECT(C3800 ) LENGTH(2) 
3 ADDRESS. HEX LOCATION (00001330) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000132E) IN CSECT(C3800 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001246) IN CSECT(C3800 ) LENGTH(1) 
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IN CSECT (C3800 
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HTUID 
H3FFE 
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INPRC 
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OLUTE, HEX VALUE (Q000FFOO) 
1493 1510 3339 

HEX VALUE (00000015) 
HEX LOCATION (00000360) 
HEX VALUE (00000006) 
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HEX LOCATION (00000BC2) 
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HEX LOCATION (000008C6) 
HEX LOCATION (00000BD0) 
HEX VALUE (000000 1A) 
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HEX LOCATION (00000C8C) 
HEX LOCATION (00000C96) 
RESS. HEX LOCATION (00000CA8) 
RESS. HEX LOCATION (00000CB6) 
OLUTE. HEX VALUE (0000000) 
2351 2444 2760 
SS. HEX LOCATION (00000C74) 
RESS. HEX LOCATION (000002FC) 
RESS, HEX LOCATION (000011FA) 
RESS. HEX LOCATION (00001208) 
RESS. HEX LOCATION (00001228) 
RESS. HEX LOCATION (00001238) 
2849 2859 
SS. HEX LOCATION (00000CEC) 
RESS. HEX LOCATION (00000CD6) 
RESS. HEX LOCATION (00000CE2) 
RESS. HEX LOCATION (00000CE4) 
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LOCATION (00000230) 
3444 


0 
VALUE (0000000D) 
4 24.09 


uy 
w 
te 


= 
a) 
co td 
=a 
i] 

Sos 


=e] 
“td 
GNM MNNMNWH Nndd-—- 


© 
tt 


RESS. 
RESS. 


_ Po ee ae © a 
=e) 
ty 


N 


N bh 


oo ee ee ee 
ee] 
ty 


—_ 
WNWY OD 20 N99 OO ~109 FOWO~10 SUDOWOWODNUDWOND 25 NN NG ONO NOI UON 10 SVWONWOND UND ONNWONTD UNO ONUNWUHNONADOOOODOULOONANOIUNENWOOOOUW 


1 
2 


N (00900234) IN 


75 
19 
KY 
37 


P/N= 


IN 
IN 
IN 
67 
IN 


IN 


IN 


IN 
IN 
IN 
IN 
IN 


1254 


IN 
IN 


HEX LOCATION (000017BE) IN 


41 


IN 
IN 
IN 


IN 


IN 
IN 
IN 
IN 


IN 
In 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


1635013 EC= 


CSECT (C3800 
CSECT (C3800 
CSECT (C3800 
CSECT (C3800 
CSECT (C3800 


CSECT (C3800 


CSECT (C3800 
CSECT (C3800 
CSECT (C3800 
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CSECT (C3800 
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MCKLB 
MCKMA 
MCKMG 
MC KM1 
MCKM3 
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HEX VALUE (00000001) 
HEX LOCATION (000004FC) IN 
HEX LOCATION(0000050A) IN 
HEX VALUE (00003808) 
HEX VALUE (0000380C) 
HEX LOCATION (0000057C) IN 
HEX LOCATION(OOOOOEC) IN 
HEX LOCATION (00000500) IN 
HEX LOCATION (00000504) IN 
HEX LOCATION (OOOO00EC6) IN 
HEX LOCATION (OQQOOECE) IN 
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HEX LOCATION (00000EEO) 
HEX LOCATION (OOOO0ED4) IN 
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LENGTH (2) 
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C3800 - DIAGNOSTIC CONTROL PROGRAM (DCP) P/N=1635013 EC=375147 PAGE 21 C3800 - DIAGNOSTIC CONTROL PROGRAM (DCP) P/N=1635013 EC=375147 PAGE 21A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYPIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
763 1049 19 13 
778 SC HD2 ADDRESS, | HEX LOCATION (00000580) IN CSECT(C3800 ) LENGTH(1) 1962 ST4O jABBRESS. HEX LOCATION (OOOOODAC) IN CSECT(C3800 ) LENGTH(1) 
780 SCHD3 ADDRESS. HEX LOCATION(000005B2) IN CSECT(C3800 ) LENGTH (1) 1013 SVC ADDRESS. HEX LOCATION(0000079E) IN CSECT(C3800 ) LENGTH(1) 
761 SCHED ADDRESS. HEX LOCATION(0000057E) IN CSECT(C3800 ) LENGTH(1) 435 SVCLB ADDRESS. HEX LOCATION(00000284) IN CSECT(C3800 ) LENGTH(2) 
417. 825 1247 2579 2853 2885 3190 359 1398 2272 3069 
349 SDCP ADDRESS. HEX LOCATION (00000000) IN CSECT(C3800 ) LENGTH(4) 244 SVCOD ABSOLUTE. HEX VALUE (00003815) 
350 SDCP2 ADDRESS. HEX LOCATION(00000002) IN CSECT(C3800 ) LENGTH (1) 359 SVCPT ADDRESS. HEX LOCATION (00000010) IN CSECT (C3800 L LENGTH (2) 
3373 1014 1022 1045 1349 1383 1398 2173 2272 2553 
415 SEC SZ ADDRESS. HEX LOCATION (00000244) IN CSECT(C3800 ) LENGTH (2) 3069 3192 
2909 2921 3353 3461 1037 SVCRT ADDRESS. HEX LOCATION(000007D4) IN CSECT(C3800 ) LENGTH(1) 
2950 SEDCB ADDRESS. HEX LOCATION(000012D6) IN CSECT(C3800 ) LENGTH(2) 765 1031 1173 1295. 2178 78 3193 
2983 1044 SVCR1 ADDRESS. HEX LOCATION (000007 £6} IN CSECT(C3800 ) LENGTH(1) 
2906 SEEK ADDRESS; HEX LOCATION(00001276) IN CSECT(C3800 ) LENGTH(1) 1039 1041 
2845 3356 1048 SVCR2 ADDRESS. HEX LOCATION(000007F0) IN CSECT(C3800 ) LENGTH(1) 
2981 SEIDB ADDRESS. HEX LOCATION(00001306) IN CSECT(C3800 ) LENGTH(2) 1043 
2846 2982 " 1021 svcos ADDRESS. HEX LOCATION(000007B2) IN CSECT(C3800 ) LENGTH(1) 
2982 SEID1 ADDRESS. HEX LOCATION (00001307) IN CSECT(C3800 ) LENGTH(1) 1017 
414 3341 621 SVNAM ADDRESS. HEX LOCATION(000003D5) IN CSECT(C3800 ) LENGTH(4) 
136 SEVEN ABSOLUTE. HEX VALUE 90000007) 1808 1825 
1473 2562 2843 2853 2859 268 TB END ABSOLUTE. HEX VALUE (00000012) 
146 SEVTN ABSOLUTE. HEX VALUE (00000011) 888 924 952 
1920 3315 139 TEN ABSOLUTE, HEX VALUE (00000008) 
2913 SE03 ADDRESS. HEX LOCATION (0000128A) IN CSECT(C3800 ) LENGTH(1) 947 961 1236 1478 1545 1578 1919 3292 
2910 61 TERM ABSOLUTE. HEX VALUE (00000007) 
2917 SE10 ADDRESS. HEX LOCATION(00001294) IN CSECT(C3800 ) LENGTH(1) 1143 
2912 2915 1397 TERMA ADDRESS. HEX LOCATION (00000A12) IN CSECT(C3800 ) LENGTH(1) 
2931 SE20 ADDRESS. HEX LOCATION (000012BE) IN CSECT(C3800 ) LENGTH(1) 479 
2928 1416 TERMB ADDRESS. HEX LOCATION(OQOOOAWE) IN CSECT(C3800 ) LENGTH(1) 
565 SIRS ADDRESS. HEX LOCATION(0000037B) IN CSECT(C3800 ) LENGTH(1) 1402 1413 
1928 1422 TERMC ADDRESS. HEX LOCATION(OOOOOASE) IN CSECT(C3800 ) LENGTH(1) 
564 SIRST ADDRESS. HEX LOCATION (0000037A) IN CSECT(C3800 ) LENGTH(2) 841 1147 1406 
565 1936 132 THREE ABSOLUTE. HEX gag fp000g93 
145 SIXTN ABSOLUTE. HEX VALUE (00000010) 745 840 882 991 1145 1208 1502 
892 928 959 964 1740 1945 1990 2837 2296 2880 2890 31 3178 
159 SIXTY ABSOLUTE. HEX VALUE (00000040) 142 THRTN ABSOLUTE. HEX VALUE (00000000) 
2951 SKW2 >ABDRESS. HEX LOCATION (000012D8) IN CSECT(C3800 ) LENGTH (2) 155 THRT4 ABSOLUTE. HEX VALUE (00000022) 
2653 SKW4 a ADDRESS. HEX LOCATION(000012DC) IN CSECT(C3800 ) LENGTH(2) 165 THR52 ABSOLUTE. HEX VALUE (00000160) 
2955 SK W6 ADDRESS. HEX LOCATION (00001250) IN CSECT(C3800 ) LENGTH(2) 96 TPGSW sABSO UTES HEX VALUE (00000000) 
u5 SM ABSOLUTE. HEX VALUE (00000001) 2240 TP PGM ADDRESS. HEX LOCATION (O0000E74) IN CSECT(C3800 ) LENGTH(1) 
768 1163 1166 1210 1219 1250 1266 1385 1900 455 
1942 2295 3441 3321 TREDG ADDRESS. HEX LOCATION(00001808) IN CSECT(C3800 ) LENGTH (2) 
127 SMBIT ABSOLUTE. HEX VALUE (00000010) 3401 3403 
1480 108 TUIDS ABSOLUTE. HEX VALUE (0000000C) 
2197 SMRTN ADDRESS. HEX LOCATION (00000E64) IN CSECT(C3800 ) LENGTH(1) 1429 2411 2451 
453 616 TUNAM ADDRESS. HEX LOCATION (000003C8) IN CSECT(C3800 ) LENGTH(4) 
2219 SORTN ADDRESS. HEX LOCATION (OOOOO0EF6C) IN CSECT(C3800 ) LENGTH(1) 2453 2797 
454 ' 141 TWELV ABSOLUTE. HEX VALUE(0000000C) 
613 SPT ADDRESS. HEX LOCATION (000003C2) IN CSECT(C3800 ) LENGTH(1) 1233. 1702 1855 3148 3293 
2911 3463 149 TWEN3 ABSOLUTE. HEX VALUE (00000017) 
614 SPT 1 ADDRESS. HEX LOCATION (000003C3) IN CSECT(C3800 ) LENGTH(1) 652 
764 2914 3074 3466 152 TWENS ABSOLUTE. HEX VALUE (0000001C) 
65 STCSS ABSOLUTE. HEX VALUE (0000000B) 1022 
1490 131 TWO ABSOLUTE. HEX VALUE (00000002) 
622 STFLG ADDRESS. HEX LOCATION (000003D9 IN CSECT(C3800 ) LENGTH(1) 350 568 572 #576 580 588 857 878 883 
762 764 1040 1042 1924 1933 895 993 996 1186 1279 1415 1539 1546 1572 
437 STLSB ADDRESS. HEX LOCATION (000002BC) IN CSECT(C3800 ) LENGTH(2) 1579 1624 1657 1695 1757 1820 1852 1877 1910 
1901 1918 2348 23917 2420 2571 2731 2864 2869 3013 
102 STOP ABSOLUTE. HEX VALUE (00000006) 3071 3083 3084 3093 3229 3233 3448 
908 940 1190 2152 2199 | 2221 166 TWOK ABSOLUTE. HEX VALUE (00000800) 
126 STPCD ABSOLUTE. HEX VALUE (00000064) 2930 3468 
3442 163 TWOO08 ABSOLUTE. HEX VALUE (000000D0) 
563 STRIT ADDRESS. HEX LOCATION (00000378) IN CSECT(C3800 _) LENGTH (2) 1950 
375 375 =93750~=— 3375S 3375 75 375 © 375 375 164 TWO56 ABSOLUTE. HEX VALUE (00000100) 
375 375-375) 375) 375) 375) 3375S 8758375 1760 1775 2916 
375-375) 375) 375) 337503375) 375875 B 5 634 UDIND ADDRESS. HEX LOCATION (09000 3E3) IN CSECT(C3800 ) LENGTH(1) 
375 375 375 375 375 375 375 375 375 844 1414 1425 2338 2730 | 
375 3750 «337533750 33750375) 87533752875 274 UDTAS ABSOLUTE. HEX ¥a1E (00090010) 
375-3375) 3750 3753758753375 875 B85 884 898 951 9 2421 
375 375375) 375)0 375) 3375S 375)S 3375S 375 835 UDTID ADDRESS. HEX LOCATION(0000061E) IN CSECT(C3800 ) LENGTH(1) 
375 = «3375, 33750 337537583753 7583753375 1417. 2450 
375-375) 375) 375) 3375S 3375S 37583758375 850 UDTNO ADDRESS. HEX LOCATION(00000650) IN CSECT(C3800 ) LENGTH(1) 
375 37520 375) 3375S 375) 3375S 3375S 837583178 846 
375 3375) 33750033750 3750037500375) 8758375 608 UDTR2 ADDRESS. HEX LOCATION (000003B8) IN CSECT(C3800 ) LENGTH(2) 
375-375) 337503753375) 375) 3375375 3375 860 969 
375 3752 375) 375)0 375) 375375) 375) 8375 609 UDTR4 ADDRESS. HEX LOCATION (000003BA) IN CSECT(C3800 ) LENGTH(2) 
375 3750375) 3375) 375) 3753750375875 869 873 975 4 
375 375 376 376 376 376 376 376 376 859 UDTOA ADDRESS. HEX LOCATION(O000065E) IN CSFCT(C3800 ) LENGTH(1) 
376 «©3760-3760 3760S 376) 3376S 376) 837636 870 
376 376 376 376 ©6©6©637606©6337606=— 3376S 3376S 76 862 UDTO1 ADDRESS. HEX LOCATION (00000664) IN CSECT(C3800 ) LENGTH(1) 
376 376 376 376 376 376 ©6376 ©0©6©376©06©6376 849 
376 376 376 376 376 ©6376 @6©6©637606©6337606©=6376 872 UDTO3 ADDRESS. HEX LOCATION(0000068A) IN CSECT(C3800 ) LENGTH(1) 
376 «6376S 33760376) 376)S 3760S 376) 376) 3376 866 
376 §©=6©6376)0S 376020376) S376) 3376) S376) 83763376 875 UD TO4 ADDRESS. HEX LOCATION (00000694) IN CSECT(C3800 ) LENGTH(1) 
376 376 376 376 @6©6©376©6©6376)0=— 3376S 3376376 ; 861 
376 376 376 0 ©937606=6— 3376S (ss 376) 3376) 376376 885 UDTO7 ADDRESS. HEX LOCATION(000006A8) IN CSECT(C3800 ) LENGTH(1) 
376 376 376 376 ©37606©6©637606©633760— 3376S 3376 893 917 992 
376 376 376 376 376 ©6376 ©@6©6©63760©6©6©637606=6(376 894 UDT14 ADDRESS. HEX LOCATION (000006B8) IN CSECT(C3800 ) LENGTH(1) 
376 376 376 376 « ©376@6©6©337606©637606=63760— 3376 881 967 
376 §©69.376—S sa 376)=—S 376) 376) 376) 3376) 376376 900 UDT15 ADDRESS. HEX LOCATION(000006C2) IN CSECT(C3800 ) LENGTH(1) 
376 376 376 376 ©6376 ©6©=©6376)0 6 376)=— 3376S 3376 854 
376 376 376 376 945 2148 3196 909 UDT16 ADDRESS. HEX LOCATION(000006D8) IN CSECT(C3800 ) LENGTH(1) 
1898 ST01 ADDRESS. HEX LOCATION(00000D1C) IN CSECT(C3800 ) LENGTH (1) 907 
563 1625 912 UDT18 ADDRESS. HEX LOCATION(OOOO06DE) IN CSECT(C3800 ) LENGTH(1) 
1914 STO5 ADDRESS. HEX LOCATION(O00000D3E) IN CSECT(C3800 ) LENGTH(1) 902 
1921 1922 923 UnT19 ADDRESS. HEX LOCATION (000006F4) IN CSECT(C3800 ) LENGTH(1) 
1923 STOS5A ADDRESS. HEX LOCATION (OOOOOD4E) IN CSECT(C3800 ) LENGTH(1) 919 
1946 1948 930 UDT21 ADDRESS. HEX LOCATION(00000700) IN CSECT(C3800 ) LENGTH(1) 
1938 ST06 ADDRESS. HEX LOCATION(00000D80) IN CSECT(C3800 ) LENGTH(1) 887 921 962 
1940 943 UDT25 ADDRESS. HEX LOCATION (0000071E) IN CSECT(C3800 ) LENGTH(1) 
1941 ST10 ADDRESS. HEX LOCATION(00000D84) IN CSECT(C3800 ) LENGTH(1) 944 
1925 1927 946 UDT27 ADDRESS. HEX LOCATION (0000072A) IN CSECT(C3800 ) LENGTH(1) 
1944 ST20 ADDRESS. HEX LOCATION(OOOO0D8A) IN CSECT(C3800 ) LENGTH(1) 932 
1917 963 UD T30 ADDRESS. HEX LOCATION(00000748) IN CSECT(C3800 ) LENGTH(1) 
1949 ST25 ADDRESS. HEX LOCATION(00000D92) IN CSECT(C3800 ) LENGTH(1) 957 
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OLUTE. HEX pea aaa 
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